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ABSTHACT 


In an attempt to bring the ML-style type inference to the C programming 
language, Smith and Volpano developed a type system for a dialect of C, called 
PolyC [SmV96a] [SmV96b]. PolyC extends C with ML-style polymorphism and a 
limited form of higher-order function. 

Smith and Volpano proved a type soundness theorem that basically says that 
evaluation of a well-typed PolyC program cannot fail due to a type mismatch. The 
type soundness proof is based on an operational characterization of a special kind of 
semantic formulation called à natural semantics. This thesis presents an alternative 
semantic formulation, called a transition semantics, that could be used in place of the 
natural semantics to prove type soundness. The primary advantage of the transition 
semantics is that 1t eliminates the extra operational level, but the disadvantage 1s 
that it consists of many more evaluation rules than the natural semantics. Thus, it 
is unclear whether it is a suitable alternative to the two-level approach of Smith and 
Volpano. 

Further, the thesis gives the first full type inference algorithm for the type 
system of PolyC. Despite implicit variable dereferencing found in PolyC, the algorithm 
turns out to be a rather straightforward extension of Damas and Milner’s algorithm 
W for functional languages [DaM82]. The algorithm has been implemented as an 
attribute grammar in Grammatech’s SSL and a complete source code listing is given 


in the Appendix. 








DISCLAIMER. 
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The computer program in the Appendix is supplied on an “as is” basis, with 
no warrantees of any kind. The author bears no responsibility for any consequences 


of using this program. 
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IE INTRODUCTION 


If one studies some of the well-known algorithms in Computer Science carefully, 
it becomes clear that some do not make any assumptions about the structure of the 
objects they manipulate. In other words, the algorithm can be generalized to objects 
of infinitely many different types. For instance, a sorting algorithm works for any type 
of value provided that an ordering relation can be defined for the values of the type. 
Also, a function, say length, that finds the length of a list object, 1s not concerned with 
the structure of the list elements. The result is always a natural number regardless 
of the type of the elements in the list. So the length function 1s polymorphic in the 
sense that it can work on infinitely many different types. What we gain from this 
generalizability property is that the function can have the same source code, or for 
that matter, the same executable(binary) for each different type of list. 


An implementation of length in ML is given by the program below: 


fun length || 2 0 
| length (z :: zs) = 1 + length zs; 


How can we express this polymorphic behaviour in the type of length? Since the type 
of the list elements is not relevant to the computation, we introduce a type variable 
to denote the type of list elements and bind it with a universal quantifier. The type 
of length is then written as 


V.7 list — int. 


By instantiating the type variable y in this type formula with different types, we 
can specialize the type of the function for different lists. For instance, following type 


formulae show two different specializations, one for integer list, and one for real list: 
int list — int 


real list — real 


We contrast different forms of polymorphism in modern programming lan- 


guages below. 


A. MACRO-BASED POLYMORPHISM 


Ada and C++ implement the idea of polymorphism in the form of Ada generics 
and C++ templates. In these languages, a type parameter for each of the polymorphic 
type variables has to be specified explicitly. Before applying an Ada generic function 
to a value of type 7, one has to create a specialized instance of the function for type 
T explicitly in the source program. In C++, instantiation is done by the compiler 
vice the user; but the programmer has to provide the actual type with which the 
parameterized type variable will be instantiated. 

The reason for the earlier specialization requirement is that, in these languages, 
only the same source code is used for a polymorphic function. But for each different 
type of argument, different erecutable code is generated. This kind of polymorphism 
is syntactic, since the generic instantiation is done at compile time with actual-type 
values that must be available at compile time. Thus, a generic procedure can be 
considered as an abbreviation for a set of monomorphic procedures with the same 
behaviour. ‘This is called macro-based polymorphism. An alternative to macro- 
based polymorphism is parametric polymorphism, as used in Standard ML. The key 
difference is that polymorphic functions have an evaluation semantics. Moreover, 
the same executable code in addition to the same source code can be used for a 


polymorphic function. 


B. ML-STYLE POLYMORPHISM 
ML does not require programs to be annotated with types by the program- 


mer; instead, the type of a program is inferred by the compiler without sacrificing 
the polymorphism. ML-style polymorphism will be discussed in the context of the 
Hindley/Milner system since the ML type system is based on it. 


C. TYPE SYSTEMS AND TYPE SECURITY 

Although we earlier assigned types to the function length, we did not explain 
how these types can be found in a systematic way since it is not always the case that 
programmers construct type-correct programs. In general, we prefer languages that 
verify the type correctness of programs statically, by checking the type correctness of 
every term of a program rigorously (strong typing). The main aim of strong typing 
is to ensure that the values are treated appropriately according to their structures, 
so that the evaluation of a program does not abort because of type errors. If 1 + true 
does not make sense with respect to the semantics of a language then one expects 
the compiler find this error before the evaluation of the program. For instance, if + 
denotes the addition of two integer values, then at compile time it should be ensured 
that in an application of +, the parameters are terms of integer type. So we need 
some system of rules which tells us how to give a type to each kind of term in the 
language. 

Such a rule system is known as a type system for the language. Most of the 
type systems are written as natural deduction systems. Below is a typical typing rule 


for function application: 


Ak €1:7 7, AF eq3:m 


AF eire: To 


In this rule, 


Ara:nn 


is called a type judgement and we say that e, has the type 71 — 7, with respect to 
the assumption set A. Type information for the free identifiers of e, 1s taken from 
the assumption set Al. If there is no type assumption for a free identifier in the 


assumption set then we say ej 1s not well-typed or 1s ill-typed. We say that a term e 


When the language is extended with imperative features, A has to be extended with the as- 
sumptions about the type of memory addresses. This ıssue will come up in Chapter II. 


is well-typed with respect to A if there is a type 7 such that Af e: 7. An assumption 
set is also called a type environment. 

In an explicitly-typed programming language, where the programs are anno- 
tated with type information, type checking ensures that type annotations are consis- 
tent with the type system. On the other hand, the types of programs including the 
parameterization of types can be inferred statically by the compiler without reguiring 
any type annotations in the source code. This idea is one of the reasons for the huge 
success of ML, which does type inference instead. 

We want programs to run without run-time type errors. For this reason we 
develop two orthogonal systems of rules, namely a type system and a semantics. If the 
type system types a program correctly then the evaluation of this well-typed program 
does not get stuck due a type error. The security from run-time type errors is known as 
the soundness of a type system. The type-soundness proof of a purely functional type 
system is typically more straightforward than that of an imperative type system with 
first-class references(pointers), first-class functions, and polymorphism. Coexistence 
of first-class references and polymorphism is the main source of difficulty, and it 
requires a precise formulation of the polymorphic treatment of references as well as 
a careful formulation of the semantics of a language. Damas’s faulty proof of a type- 


soundness theorem {[Dam85] is an illustration of this difficulty | Tof90]. 


1.  Hindley/Milner Type System 

Hindley's type discipline [Hin69] introduces type variables in type expressions 
without any quantification. Later, Milner introduced quantification of type variables 
[Mi178]. Damas and Milner gave an application of these ideas in a purely functional 
setting [DaM82]. The Hindley/Milner type system has three important properties: 
parametric polymorphism, type inference and soundness and completeness of type in- 


ference. 


a. Parametric Polymorphism 
The polymorphism used in Hindley/Milner system is also called let 
polymorphism, because polymorphic functions are allowed only in the local scope of 


a let construct together with a notion of instantiation. In 
let z — ei in e, 


if e; has the type 7 with respect to A then z is assumed to have type ø, which is 
found by quantifying the type variables that occur in 7 but do not occur free in the 
assumption set A. Then < binds all free occurrences of z in e2, each of which has as 
its type an instance of o. 

The Hindley/Milner system imposes a restriction on the quantification: 
all type formulae have to be in prenez normal form; in other words, quantification 
must be done at the outermost level. A type formula in prenex normal form 1s also 
called a shallow type. 

It should be noted that let z — ej in ez can be thought of as an abbre- 
viation for (Az.e2)ei as far as the evaluation of these two constructs are concerned. 
But there is a difference between them when it comes to how they are treated by the 
type system. In let x = e; in e,, ei can be typed polymorphically, but in (Az.e2)e1, 
eı has to be monomorphic, since otherwise the type formula computed for it would 
not be in prenex normal form! Assume we give e the type o, which is universally 
quantified over some type variables, and e, the type 7. Then Az.e, has to be given 
the type co — 7, which is clearly not in prenex normal form. 

b. Type Inference 

There is an efficient algorithm, called W [DaM82}, for the type sys- 
tem. W determines whether a given program is well-typed and infers the most gen- 
eral(principal) type for it. 


Starting from the leaves of the parse tree of a program with an empty 


assumption set? , W implicitly annotates the program with type information and, 
at the end, either finds the principal type of the program, if the program is well- 
typed, or fails. Roughly speaking, a principal type 1s one from which all other types 
of the program can be derived. In the next chapter we will show, in detail, how an 
extension of W infers types for well-typed programs in Polymorphic C. Restricting 
the type formulae to prenex normal form allows the use of Robinson’s first order 
unification algorithm [Rob65|. 

c. Soundness and Completeness 

In [DaM82] it is shown that W is sound, in the sense that it finds types 
only for well-typed expressions, and complete, in the sense that if a program is a 


well-typed then W finds the most general type for it. 


? Actually, a type assignment process never starts with an empty assumption set if there are 
built-in operations in the language but we would like to consider the emptiness of the assumption 
set in terms of adding a new assumption to the set during the process of type assignment. 


11. THE POLYMORPHIC C LANGUAGE 


This section gives an overview of Polymorphic C. Hereafter we use PolyC 
instead of Polymorphic C as a shorthand. The reader should see [5mV96a] for a 
detailed account of PolyC. 

PolyC is designed to incorporate an advanced polymorphic type system, si- 
miliar to those designed as extensions to the core-ML type system, into the widely 
used imperative programming language, C. Unlike other extensions, the PolyC type 
system also captures polymorphic typing of first class pointers. 

PolyC is semantically very close to K&R C [KR78], with the same pointer 
operations, including the address of &, the dereferencing *, and pointer arithmetic. 
The main design rationale was to bring ML-style polymorphism and type security to 
C while keeping the flexibility and simplicity of C. Variables in PolyC are second class 
and implicitly derefenced, while pointers are first class and explicitly dereferenced by 
the * operator. 

As a new feature, functions are first class citizens in PolyC, and, as in C, 
function applications are implemented on a stack without use of static links or displays 
by imposing a restriction on functions: The free identifiers of a function must be 
declared at top level; that 1s, the scope of the declaration must extend all the way to 
the end of the program|SmVo95]. In C, no automatic variable? can occur free in a 
function declaration so that a function declaration is closed with respect to the top- 
level (global) identifier set. PolyC establishes the same property via this restriction 
by ensuring that a lambda-bound identifier, or an identifer bound by a let, letvar or 
letarr declaration whose scope does not extend to the end of the program, does not 


occur free in a function. In the program below, the scope of y does not extend to the 


1A variable that is created as a result of a function application. In other words, the local variables 
of a function including its formal parameters. 


end of the program, so Az.z+y is not closed with respect to top-level identifiers. 


letvar x := letvar y :< 5 in Az.z - y 


ia. 
But this restriction has another consequence: Currying of functions is not al- 
lowed anymore. An attribute grammar enforcing the restriction is given in Appendix. 
PolyC does not distinguish between commands and expressions. Every term 
of the language is an expression. A subset of expressions, however, are distinguished 
as Values, which are the syntactic values? of the language. The core syntax is given 
below. 
(ET ERES EET EROR ey NEA 
&e | xe l| eres | eleg] | e15e2 
while e; do e; | 
if e, then e; else e; | 
let z = e in e | 
letvar z := ei ine, | 
letarr z|ei] in ez | 
(a, 1) 
aUa ue Oros e e lta.) 
Meta-variable z ranges over identifiers, c over literals (such as integer literals and 
unit), and a over addresses. To be able to catch pointer errors in the semantics, an 
address is designed as a pair (2,7), where z is a segment and J is an offset in that 
segment. The lifetime of a cell ends when the scope of the identifier to which it is 
bound ends. 
Since core PolyC does not support overloading, + denotes only pointer arith- 
methic and zs denotes dereferencing. The construct letvar binds z to a new cell 


“Syntactic values correspond to non-expansive expressions of [Tofte90], where evaluation of a 
non-expansive expression does not extend the domain of the store function. 


initialized to value of ej; the scope of binding is ez and the lifetime of the cell ends 
after the evalution of ez. If e, has type 7 then z has type T var. Analogously, the 
construct letarr binds x to a pointer to the first cell of n consecutive uninitialized 
cells where n is a positive integer found by the evaluation of ej; the scope of z is ez, 
and the lifetime of the array ends after ez is evaluated. 

Having functions as first class citizens leads to a more flexible syntax than that 
of C. In addition to named functions, users can define anonymous functions easily 


anywhere in the program such as 
let 2d= Az.z in 2d (Ay.y +1). 


PolyC does not have an explicit syntax to create uninitialized identifiers of 
pointer type. But it unifies array types and pointers, as in C. Then declaring an 
array of size 1 1s the declaration of an uninitialized pointer type identifier. 

Another subtle syntactic difference is in the treatment of the formal parameters 
of a function. In C, formal parameters are considered as local variables of a function, 
whereas they are treated as constants in PolyC. But it 1s not hard to achieve a C-like 
treatment by declaring new local variables in the body of the function and initializing 
them to the values of the formal parameters. Below, a C function and its PolyC 


version are given in order. 
unt-f ant zd rein 2: } 


let F =Azleiverz = rin Tr men 


A. THE TYPE SYSTEM 


ML stratifies the types into two levels: the ordinary 7 — types (data types) 
and o — types (type schemes). PolyC adds another level to this stratification, namely 
p — types (phrase types) to establish the second-class status of variables. Types of 
PolyC are given below [SmV 96a] : 


AO IM IPN XT (data types) 
De EU CL OA ee (type schemes) 
DNE — A UOT (phrase types) 


Meta variable o ranges over type variables. 

The type system is designed as a natural deduction system to assign types to 
expressions. It is given in Figure 1 [SmV 96a]. 

In Section B, we saw that the type of a term is found with respect to an 
assumption set A, where A ranges over identifiers and assigns types to free identifiers 
of a term. Having A range over identifiers only is adequate for sound typing in a 
functional setting, but if the language includes assignable locations, then we have to 
be able to implicitly type a location, regarding the value stored in it, to get a handle 
on the soundness of the type system. Intuitively, a location must be given a monotype 
since we can not store different types of values in a location. A thorough discussion 
of the difficulties with references in a polymorphic type system is given in [Tof90]. As 


given in Figure 1, typing judgements have the form 
A; Y E CO 


meaning that expression e has type p, assuming that y prescribes phrase types for 
the free identifiers of e and A prescribes data types for the variables and pointers 
in e. More precisely, meta-variable y ranges over identifier typings, which are finite 
functions mapping identifiers to phrase types; y(x) is the phrase type assigned to z 
by y and ylz : p] is a modified identifier typing that assigns phrase type p to x and 
assigns phrase type ;(4') to any identifier z' other than z. Similiar conventions apply 
to A(x) and A[z : p] [SmV96a]. 

Generalization of data type T with respect to and 7 is denoted by Closey.,(7) 
and is equivalent to the type scheme Và. 7, where a is the set of all type variables 


occurring free in 7 but not in A or in y. We write A F e: 7 and Close,(r) when y = 9. 
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(VAR-ID) 
(IDENT) 
(PTR) 
(VAR) 


(LIT) 


(—-INTRO) 


(—-ELIM) 


(LET-VAL) 


(LET-ORD) 


(LETVAR) 


(LETARR) 


(R-VAL) 


(L-VAL) 


(ADDRESS) 


(ASSIGN) 


AS Im man 


AD RUNG 


A on 
A var 


A meni mu 


STORE 


y(z)2rT 
MET 
AC) Son 


c is an integer literal 


Ay ie unit NE 


AE Ta: 


vomer. | ce 


AE ALI EE IT 9m 


A;yF e: m X XT, T, 
Acc EET. lul «n 
A UE C GI ea) sr 


Ay F v: m, Asylz : Clesex4(ri)] - e: 7» 


DA > 


Ag ime m? AE Ti] m e. T 


Ay y Flet x=e, ine, : Ta 


AMA ASE TL VAT e): Ta 


Man letyvarére—= cule 


da 


Int OG T vi Na ME m 


A; y F letarr z[ei] in e, : 72 


AU Me ET 


As y me : 7 var 


As eer más 


Ay F xe : Tuar 


E e E var 


pu er 


Ae e En 


Rare ie Gin 


Figure 1. Rules of the Type System, continued next page 
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(ARITH) amc: Dit Noy ep: ant 
AY Fe es : T pir 


(SUBSCRIPT) ee i eae tnt 
à; y F erlez]: T var 


(WHILE) Aj imeni AA ce, tm 
A; y F while e; do e2: unit 

(COMPOSE) wa éi eA In eo cona 
NRC CT 


Figure 2. Rules of the Type System, cont. 


lyping a let construct is done via two rules, namely LET-VAL and LET-ORD. 
If e, is a syntactic value then LET-VAL is used and z is given a phrase type by 
genaralizing the type of ei. On the other hand, LET-ORD is defined for the cases 
where ei 1s not a syntactic value and no type generalization is allowed. Regarding 
these two rules, all of the type variables in PolyC can be seen as imperative(weak) 


when compared to Standard ML type system [Tof90]. 


1. Examples of Type Inference 


Consider the program 
let id = ATiz in rd Ay Y + 1) ;2d(3) . 


We start with empty domains for À and y. The LET-VAL typing rule is the first one 
to start with since Àx.x is a value. By the first premise of LET-VAL, Az.z is given 
the type a — a. We extend y with x : Va.a — a by closing a — a with respect 
to à and y, and try to type the sequence zd(Ay.y + 1);7d(3). The first expression of 
the sequence is typed using —-ELIM. We instantiate zd as 8 — § and Ay.y + 1 is 
given the type ¢ ptr — (C ptr. Rule —>-ELIM requires P and ( ptr be the same, so we 
unify them with representative type ( ptr. The second expression is also typed by 


—-ELIM. We instantiate zd to € — € this time, and 3 has type int. By —-ELIM, € 
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and nt are unified to int. So the result of the application has type int. Then by 
COMPOSE, 2d(Ay.y 4- 1); :d(3) 1s given the type int. Since, the hypotheses of LET-VAL 
are satisfied, it is deduced that the program has the type int. 

The program below shows how the type system prevents memory locations 


from being treated polymorphically. 
letvar id := Àzx.x in id := Ày.y +1; let id = idin 2d'(3) 


We start with the LETVAR typing rule and give the type a — a to Ar.r. Then we 
extend y with zd : (à — a) var and try to type the body of letvar, which is a sequence. 
The first expression of the sequence is typed using ASSIGN. The type (a — o) var is 
given to zd by y, and Ay.y + 1 is given the type ptr —^ B ptr . By ASSIGN, a — «a 
and 8 ptr — B pir must be the same. So we unify a and f ptr with representative 
type 8 ptr. Finally, the assignment is given the type 8 ptr — 0 ptr and y gives the 
type (B ptr — f pir) var to id from now on. 

The second expression of the sequence is a let expression. Since zd is an 
identifier we use the LET-VAL typing rule. The type (8 ptr — B ptr) var is given 
to zd by y. Since zd is in an r-value context, we use rule R-VAL and find the type 
B ptr > B ptr for zd. Then we extend y with id’: Close,.,(B ptr — B ptr). B occurs 
free in y by the fact that it occurs free in the type judgement zd : (B ptr — B ptr) var 
, so Close (B ptr — p ptr) = B ptr —^ B ptr. Now, we try to type the body of the 
let expression which is the application :d'(3). The type B ptr — £ ptr is given to 
1d by y and 3 has the type int. But then —-ELIM requires B ptr and int be the 
same which is not possible. So we conclude that this application is not typable and 
therefore the program is untypable. 

Having first class pointers in the language can lead to the occurrence of dan- 
gling pointers. To preserve the flexibility and expressiveness of C, PolyC does not 
prevent the dangling pointers but the semantics catches the dereferencing of a dan- 
gling pointer. The program below shows how a reference location escapes from its 


scope by returning the address of the variable y in the body of the inner letvar 
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expression, and how the type system assigns a type to this program. 
letvar x := letvar y := Az.z in &y in (*z)(3) 


We start with the LETVAR typing rule to type the program. The first premise of 
LETVAR requires us to type the inner letvar expression, letvar y := Az.z in dy . By 
a second use of LETVAR, we give the type a — a to Az.z, and then by extending y 
with y : (a — o) var, the body of inner letvar, &y, is given the type (a — a) ptr. 
So it is deduced that the inner letvar has the type (a — a) ptr . Now y is extended 
with z : ((a — a) ptr) var, and we try to type the body of the outer letvar. Since 
it is an application, we use —-ELIM. We type xa by first using R-VAL, then L-VAL 
followed by R-VAL again giving type a — a. Since 3 has the type int, we deduce the 
type int for the application and also for the program itself. 

In Chapter III we will show how the semantics prevents the evaluation of this 


program by catching the dereferencing of the dangling pointer stored in x. 
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ILI. THE TYPE-INFERENCE ALGORITHM 


In this chapter we present the type-inference algorithm W,. It is similiar to 
Milner's algorithm W [DaM82], which is based on unification of type expressions. We 
also present an example type inference produced by the computer implementation of 


W.. We first give some definitions about substitution and unification. 


A. SUBSTITUTION AND UNIFICATION 


A substitution S is a finite set of the form 
[r1/@1,72/@2,...,Tn/Qn] 


where the variables o; (1 € i < n) are distinct. Sp is called the application of 
substitution $ to type expression p. The result of Sp is another type expression p', 
obtained from p by replacing simultaneously each free occurrence of the variable o;, 
] €: € n m p by 7; , renaming the bound variables of p if necessary. p' is called an 
instance of p. Note that p and p' can be the same if no o; occurs in 7. 

We often write S,( S,p) or simply S,S, p for the application of the composition 
S, o S, to p. An empty substitution is written as ||. 

A substitution S is called a unifier for type expressions pı and pz if Sp; = Spo. 
We say pı and p2 are unifiable if there is a unifier for them. 

A unifier S is called the most general unifier of p1 and p2 if for every other 


unifier S’ of pı and pz there is a substitution S” such that 
S! = S o Ce 


Unification of type expressions is implemented using Robinson’s first order 
unification algorithm, which returns a substitution U, where U is the most general 
unifier of a pair of type expressions p; and p; given as the arguments to the algorithm 
[Rob65]; if pı and p> are not unifiable then the algorithm fails to return such a 


substitution. 
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B. ALGORITHM W, 


W, takes two input arguments, y and e, and returns a pair (S,7). As defined for 
the type system, y is a finite function mapping identifiers to phrase types. The second 
input argument e is the expression whose type is to be inferred, S is a substitution 
and 7 is the type inferred for e by W,. The type returned by W, is a 7 — type in that 
it is called only in r-value contexts. Since locations do not occur in user programs, 


we do not use a location typing À in W.. Only y is needed to do type inference. 


W (7, e) is defined by cases: 
Lëpsen 
Base OT 
return (| |, [G;/a;]7) where 6; is new for each 1 <i <n 
case y(x) =T 
return (| ],7) 
case y(z) — T var 


return (| ], 7). 


DC SAT rue Tic 
let ($1,711) 2 W(w|zi : £3,..., 24 : Bn], e1) where ß;’s are new 
return (93, $1(81 x --- x Bn) > T). 
3. eis e(en,... en) then 
Ics 72), unse) 
lete rise) 


let DE gl — BR TS Eo STS Y, SEN 


let Se: = Unify(CoT', (Cin X C T2 KR CTS X TUNE X TA) Ge. B) 
where 8 is new, 
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no ca and 1 Mmm 


return (Sogn gU 


is let z = e; in es 
let (S1, n) = W(y, e1) 
if e, is a syntactic value then 
let (Sa, 72) = W(Siy|z : Close s,,(71)), €2) 
else | 
let (S2, 72) = W(Siy[z : 71], e2) 


return (5251, T2). 


5. eis letvar zr :— e1 1n e» 


6. 


€ 


let iue) = Wio, en 
let (55,72) = W(Siw|z : 7; var], ez) 


return ($2.5), 7). 


is letarr x[e,] in €; then 

let (S1, 71) = W (7, €1) 

let 5’ = Unify(n, int) 

let (S2, 72) = W(S’Sıylx : $ ptr], ea) where 8 is new 
urna To). 

IS te} then 

let (S1,71) = W(y, e1) 

Etr una pin) 


where Ó is new 


return ($'51, S'8). 


lí 


8. eis &e, then 
case eı 1S x 
if y(z) = Tıvar then 
return (| ], 1 ptr) 
else fail 
case €, 1S *€» 
let ($1, 1) = W(+,e2) 
let S = Unify(n, B ptr) where B is new 
return (S'5,, S'B ptr). 
9. eis ei :— e; then 
case e, 1s z 
if y(z) 2 7 var then 
let (S1, 1) = W (y, e2) 
let S' 2 Unify(ri, S17) 
return (5'S,, S'r,). 
else fail 
case e is xe' 
let ($35,5) 2W(4,e 
let 5' — Unify(1, B ptr) where B is new 
let (Sa, 72) = W(S'S]y, e2) 
¡Un so Ol) 
return (5"5,5'5,, S"r) 


10. e 1s e, + es then 
let (51,71) = W(y, e1) 


let S" 2 Unify(r1, Ó ptr) where B 1s new 
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let (55, 74) = W (5'517, eo) 
lets T) 
return ($"555'91, S" S5 S'B ptr) 


1l. eis ei; e? then 
let (51,3) — WT) 
let (So, T2) = W (S17, eo) 


return (5551,72) 


12. e is while e, do e, then 
let (51,7) = W(7, 61) 
let = Une cn) 
let (55,72) — W(S'Siw, ez) 


return (S25*S,, unit) 


Function Unify is the implementation of Robinson’s unification algorithm and 
Closes,„(rı) in case 4 is the generalization of 7, with respect to the environment 
found after the application of the substitution 5) to y. 

C; 1n case 3 denotes the composition of substitutions that is applied to the 
type of the zth actual parameter of a function application, where 1 € : « n and n 1s 
the number of formal parameters. C$ is the substitution composition applied to the 
called function. 

We omit the default arm of case statements for simplicity and 1t corresponds 
to a fail case of W.. In addition to the explicitly stated fail cases, W, also fails if 
Unify fails to return a substitution or any subinvocation of W, fails. 

Array subscripting ej|e;] is a syntactic sugar for *(e, + e2) so that we do not 


consider array subscripting as a separate case in W.. 
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The algorithm does not explicitly specify how a "new" type variable is obtained. 
We assume that there is a global list of used variables, and that new ones are selected 


from those not in that list. 


1. Sample Type Inference with W, 

An interpreter for PolyC has been written using The Synthesizer Generator 
environment [Gram]. It includes an implementation of W, and the syntax and the 
natural semantics of PolyC given in [SmV96a] with some modifications. Source code 
for the interpreter is given in Appendix. 

Below is an implementation of a HeapSort algorithm in PolyC [Cor90]. The 
type annotations shown as 
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for selected ıdentifiers only are done automatically by the interpreter. 


let Swap : V * 9.(*9 ptr x *9ptr — *9) := A(a, b) (let temp =!a in 


log: 
Im Ib: 
end } in 


letvar heapSize : int var := 0 
let Heapify : V x 21.(x21ptr x int x (x21 x x21 — int) — unit) 
— Ala, z, comp)(letvar left : int var :2 2*:-4- 1in 
letvar current : int var :=211n 
while left < heapSize — 1 do 
if left € heapSize — 1 
then if comp(alle ft], alle ft + 1]) 
then largest := left 


else largest := left + 1 
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8 
else largest :— left 
fi; 
if comp(a|largest], a[current]) then 
Swap(&a|largest], &a|current]); 
current := largest; 
left := 2 x current + 1 
else left := heapSize+1 
fi 
od 
end 
end 
end } in 
let BuildHeap : V * 29.(*29 ptr x int x (*29 x +29 — int) — unit) 
— A(a, size, comp){heapSize := size; 
letvarı := s:ze/2 — lin 
while z > 0 do 
Heapify(a, 1, comp); 
t := 2—1 
od 
end }in 
let Heapbort ; Y + 35.(+35 ptr X int x (+35 x +35 > int) Minit) 
— Ma, size, comp)4 Build Heap(a, size, comp); 
letvar 2 :< size — lin 


while 2 > 1 do 


2il 


Zant Kall, &a[0]); 
heapSize := heapSize — 1; 
Heapify(a, 0, comp); 
ye 1 
od 
end } in 


letarr a[8] in 


a[0] :— 12; 
a[0] := 5; 
aj0] := 23; 
a[0] := 8; 
a[0] := 1; 
a[0] :— 45; 
a[0] := 17; 
a[0] :— 51; 


HeapSort(a, 8, Ala, b) La > b)); 
(a[0], (al), (a[2]; (a[3]; (a[4], (al5], (a[6), a171))))))) 


end 


end 


end 
end 
va ENSE DeC EET) MD 


Mine nt mex eme (int x (int x (amem e) 


I 
bt 


In type expressions, Cartesian product x binds tighter than arrow —; *e, where: € 
Natural, is a type variable generated by a global new type variable generator function. 
The second line from the last shows the result of the evaluation of the program and the 
last line shows the type of the program. Here we use * to denote integer multiplication 
vice dereferencing, which is denoted by !, and + denotes integer addition vice pointer 
arithmetic, which is denoted by $. Type quantification is denoted by V as in the type 
of Swap. 


2. Correctness Criteria for W, 

Due to time constraints on preparation of this thesis, we are not able to pose 
theorems related to correctness of W, and prove them. Roughly speaking, correctness 
of W, should be established by showing that W, is sound (syntactically) and complete. 
By soundness, we mean that if W, succeeds in finding a type for a PolyC expression 
then that type can be derived for the expression in the type system. By completeness, 
we mean that if an expression of PolyC has a type at all then W, will succeed in finding 


a type for this expression which 1s at least as general. 
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es TRANSITION SEMANTICS FOR 
POLYC 


In this chapter we develop a transition semantics (TS) for PolyC that cap- 
tures each single step of the evaluation of an expression. First we will look at the 


motivations behind this type of semantics. 


A. STRUCTURAL OPERATIONAL SEMANTICS OF 
POLYC 


To show the semantic soundness of the type system of PolyC, Smith and Vol- 
pano use the framework of Harper [Har94] and develop the subject reduction property 
using the Structural Operational Semantics(SOS) given in the same paper [5m V96a]. 
But the subject reduction property based on SOS does not expose enough informa- 
tion about the course of evaluation of a program, making it difficult to establish a 
semantic soundess result for the type system. SOS defines a relation between the 
expressions and their normal forms but does not explicitly keep track of step-by-step 
construction of the evaluation tree of an expression. Instead, by using the composi- 
tionality property in a coarse-grained sense, it assumes that in one or more steps the 
evaluation trees created by the subexpressions will constitute the final evaluation tree 
of an expression. If a subexpression fails to evaluate to a value, so does the whole 
expression. But we cannot know exactly how the subexpression got stuck, which is 
a key issue in being able to reason about the semantics and its interaction with the 
type system. SOS admits structural induction on evaluation derivations. 

Gunter [Gun92] strengthens subject reduction for the pure functional pro- 
gramming language PCF by augmenting the evaluation rules with new rules that 
evaluate to a special value, namely tyerr which does not have a type. These rules 
cover the evaluation of possible ill-typed expressions. Since a well-typed expression 


never contains an ill-typed subexpression, then any of the rule instances that occur 
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in the evaluation of a well-typed expression cannot be an instance of one of these new 
rules. Hence, it 1s not the case that a well-typed expression evaluates to tyerr. So by 
showing that subject reduction holds for the augmented evaluation rules, absence of 
run-time type errors is guaranteed. In addition to the drawback of augmenting the 
evaluation rules, this approach does not give us any information about the nature 
of the other errors that can occur during evaluation of well-typed programs, which 
will be an important issue in an imperative setting with assignable locations and first 
class pointers. 

On the other hand, Smith and Volpano use the combination of subject reduc- 
tion and a lemma, namely the Correct Form Lemma to prove a soundness theorem 
[SmV96a]. The Correct Form Lemma shows the correct syntactic form of a value 
when its type is given. It basically shows the type system is not being silly by giving 
some unexpected type to a term. For example, if a value has type 7; — 72 then the 
value is a À — abstraction and not, say, an integer. Also, to get a handle on the 
“progress of an attempted evaluation, the evaluation rules are re-cast as an instance 
of a recursive function, eval. The Soundness Theorem then shows that 1f an activation 


of eval aborts, it is due to one of the following four errors [5mV 96a]: 


El. An attempt to read or write to a dead address (7,7). 


E2. An attempt to read or write to a nonexistent address (1,7). Address (2,0) 
always will exist, so the problem is that the offset 7 1s invalid. 


E3. An attempt to read an uninitialized address (2,7). 


EZ. An attempt to declare an array of size less than or equal to 0. 


But re-casting the evaluation rules as an instance of eval and proving a sound- 
ness result based on the abort conditions of eval seems a little bit informal. What we 
would like to do is to collect more information about the “course” of the evaluation of 
the programs so that we can use more formal techniques to prove a soundness result 


for PolyC. It is for this reason that we explore a transition semantics for PolyC. 
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B. TRANSITION SEMANTICS FOR POLYC 


1. Definitions 

First. we give some definitions used in the transition (evaluation) rules. 

A configuration is a triple (e, 4, 6) where e is an expression, ô is an active cell 
indicator, and yu is a memory which is a finite function from addresses to values; u 
may also map addresses to dead or uninit, indicating that the cell with that address 
has been deallocated or is uninitialized. The contents of an address a € dom(y) is 
the value (a), and we write ufa := v] for the memory that assigns value v to address 
a, and value u(a’) to an address a' Z a; u[a := v| is an update of u if a € dom(y) and 
an extension of u if a £ dom(y). 

An active cell is an address whose value is not dead. The natural number ó 
denotes the number of active cells created so far by an expression or by its subex- 
pressions. We use ó for the purpose of keeping track of the lifetime of memory cells 
that are allocated via letvar and letarr declarations. 

We define a binary relation — from configurations to configurations to capture 
the single step transitions. If evaluating the closed expression e in memory u with 
respect to 6 results in a new expression e', a new memory u' and a new active cell 


indicator 6’, then 
(e, 1, 8) > (el, ul, 8). 


We write [e’/x]e to denote the capture-avoiding substitution of e' for all free 


occurrences of x in e and the result of the substitution is another expression of PolyC. 


p The Transition Rules 


The transition rules are given below: 


(CONTENTS) 


(1) a € dom(u) and u(a) = v 
((a,1),u,6) — (v,u,6) 


ŽI 


(DEREF) 


(11) 


(REF) 
(1) 
(11) 
(III) 


(OFFSET) 


(I) 


(11) 


(111) 


(UPDATE) 


(1) 


a E€ dom(p) and u(a) — v 


(*(a,0), u, 0) — (v, 4,6) 


(e, 1,8) > (e, 11,5) 


O 


(&(a, 1), u, 6) = ((a, 0), y, 6) 
(& * (2,0), 1, 6) — ((a, 0), yu, 6) 


(e, 1,5) > (e, 4,5) 


(& * e, p,6) > (E * e, u^, 6") 


n an integer 


(((2,3),0) + n,u,6) — (((,3 +n),0), x, ë) 


COR CETTE 


(((2,7),0) + e, 1,6) = (((2,3),0) + e”, 1”, 6) 


en K, ó) X @ pe, ó') 


(ei + 62, 1,6) C 8) 


ID , Zn. €)(v1,;. E ó) p (au EE Un) Li, o, ZERO) 
€, H, — (e^, u^, o") 
e:, #, 6) c (e p, 9) 1€ in 


ge Ee li, Ee Om oe 
á Ra Ta: é) One vzne v jev) MM 


( 
( 
O oE (eer en 
( 
( 


a € dom(u) and u(a) # dead 


(a, 1) := v, 4,6) > (v, ula := v), ô) 
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(11) 


(III) 


(1v) 


(V) 


(BIND) 
(1) 
(11) 


(BINDVAR) 


(1) 


(11) 


(111) 


(IV) 


(BINDARR) 


(1) 


(11) 


(let z =v in e, 1,6) > 


(e, 11,0) > (e, 0, 6°) 

((a; lom e,nu,ó) ala I Ze) 
a € dom(u) and p(a) zz dead 

+(a,0) se v,4,8) — (vua ie uho) 

e, 1,6) 2 (e; u^, à) 


Či, E (east; ó”) 
*€] :— €2; p, 6) E (kej "ES ÉD Le ó”) 


(e, 
(*(a,0) := e, 1,6) = (*(a,0) :=e',w,®) 


(Iv/x]e, u, 6) 


(er, K, č) me bes pe, ó”) 


(let r = ei in ezn (let aen eo) 


(1,0) £ dom(u) 
(letvar z:2 vin e,u,0) — 
detvar r e 


1)/z]e, u[(2,0) :— v], 1) 
(7,0) € dom(p) and (2,0) the last non-dead cell 

(letvar x := v, in vz, 1,1) — (vo, u[(2,0) :- dead], 0) 

( 


SEO ENERO) 
(letvar xz := e; in e2,1,6) — (letvar zx :— ej in eo, u', ó") 


(eu, — 1) (e, 6) (6 0) 


(letvar zx := v in e, 1,6) — (letvar x:=v in e”, 4,6 +1) 


n a positive integer and (2,0) & dom(u) 
(letarr z|n] in e ae > (letarr z[n] in [((2,0),0)/x]e, 
414,0), (57 mmt, mimi | l) 


(1,n — 1) € dom(y) and (i,n — 1) the last non-dead cell 


(letarr z[n] in v, 1,1) = 


(v, u[(2,0),...,(2,n— 1) := dead,..., dead], 0) 
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(111) 


jel H, UE (e; pe, ó') 

(letarr z|ei] in ea, 1,6) — (letarr z[ej] in eg, p’, 6’) 
| 

( 


(IV) e, 1, 6 — 1) — (e u^, 6) (6 » 0) 


letarr TUE in e, 4,60) — (letarr z[n] in ei, o. Ai 4- 1) 


(LOOP) 
(I) (€1, 4,6) ^ (ei ^ 9") 
(while e; do e,, u, 8) — 
(1f e, then e; while e, do e, else unit, p’, 6”) 
(BRANCH) 
(1) n a nonzero integer 


(If n then e, else ez, 1,0) — (ei, 4, 6) 


(11) If 0 then e, else ez, 1,0) — (e2, H, ô) 


( 
(111) S H, ô) 2 (ei u^ 6") 


if e, then e, else ez, 11,0) — (if ej then es else es, u', ó^) 


(COMPOSE) 

(1) (v; e, 1,6) > (e, u, ô) 

(0) (emô) > (etsi 8) 

(€1; €2, äi — (61; 62, u^ 8") 

Meta variable v and z range over values and identifiers, respectively. The 
understanding in rules like DEREF, REF, etc. is that if there are transitions on e and 
v or at least one specific syntactic value then e 1s understood to be all expressions 
except all values. For instance, DEREF has two rules; (I) defines a transition for pointer 
type values and (11) defines a transition for all other expressions except values. 

Since the lifetime of a memory cell is bounded by the scope in which it is 
activated, the rules have to keep track of the lifespan of each memory cell. In SOS, 
this is easy to do, whereas the solution in TS may seem unintuitive. We introduce 


ó to keep track of the scope information. Notice that in BINDVAR (I), after a cell is 
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allocated for a variable we still keep the letvar! construct until the body evaluates to 
a value. When the cell 1s allocated ó 1s incremented so that we can understand that 
this letvar instance has actually allocated a cell and now it is evaluating its body. 
Rules BINDVAR (1) and BINDVAR (IV) show this difference. In BINDVAR (1), the letvar 
expression of the initial configuration has a value v as its e; and ó 1s 0 which means a 
cell has not been allocated yet. Then a new cell for z is allocated and initialized to v, 
and ó is incremented by one. In BINDVAR (IV), the initial configuration is the same 
as the initial configuration of BINDVAR (I) except that the second premise forces ó be 
greater than 0 which means that this rule is used only to evaluate the body of letvar. 
Keeping the letvar construct around after we allocate a cell makes the proof search 
part of a Jetvar transition unnecessarily long, but introducing a new construct would 
force us to augment the type system superficially with a new typing rule for this new 
construct. The evaluation of a program starts with 6 = 0 and ends again with ó = 0. 

At first glance, one might be tempted to use a variation of p-erpressions 
to keep track of the cells being activated [WrF91]. This would not be enough by 
itself, since in PolyC the lifetime of a cell is bounded whereas in [WrF91] a cell has 
unbounded lifetime. 

We assume that memory cells are allocated sequentially from a sufficiently big 
sequence of cells, where the cells are associated with index numbers in an increasing 
order. As defined earlier, an address is a pair of segment and offset numbers and it 
indicates a cell in the memory. When a variable v is created, the cell with the least 
index number from the non-used part of the sequence is initialized to the value of 
this variable, and an address (2,0) corresponding to this cell is added to the domain 
of u. Similiarly, when an array x of size n is created then the first n cells from 
the non-used part of the sequence are initialized to uninit and the corresponding 


addresses (2,0), (2, 1),..., (z, n — 1) are added to the domain of u. When the scope of 


! We will focus on letvar without mentioning letarr separetely; in most cases the same discussion 
is also valid for letarr. 
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the variable v or the scope of the array x ends then these cells are marked as dead. 
but they are still kept 1n the domain of u. 

In SOS, a variable declaration and termination are done within a single eval- 
uatıon rule so that it ıs easy to know which address is to be marked as dead. But in 
TS, declaration of a variable and termination of it are done via different rules, and the 
address information is not carried to the next transition. Given the memory model, 
it is easy to find out the memory cell to be marked when necessary. Simply search 
through the sequence of cells starting from the high-index numbered end of the used 
part of the sequence, and the first cell that is not marked as dead will correspond 
to the address of the variable whose scope is ending. We call this cell the last non- 
dead cell. In case of an array of size n, the consecutive n cells starting from the last 
non-dead cell are the ones that will be marked as dead. The reason that we have to 
search for the last non-dead cell is because dead locations are not taken away from 
the domain of u. If an expression e creates a variable x for which the cell indexed 2 
is allocated, and if a subexpression of e then creates another variable y, then the cell 
allocated for y has a higher index J and so j will be marked as dead before z since 


the scope of y ends before the scope of z. 


3. Two Examples of Program Evaluation 


Figure 3 shows the evaluation derivation of the program 
letvar x := 1 in letvar y := zx in y. 


The evaluation in Figure 3 is completed in six transitions. A transition rule 
name is given inside brackets to indicate the rule used in making the single transi- 
tion that follows it. For example, the first transition is done using the BINDVAR (I) 
rule. The second, third, fourth and fifth transitions are done using an instance 
of BINDVAR (IV). In the proof search, the second transition uses an instance of 
BINDVAR (III) and CONTENTS, the third transition uses an instance of BINDVAR (I), 


the fourth transition uses an instance of BINDVAR (IV), and the fifth transition uses 
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[BINDVAR (1)] 
(letvar z := 1 in letvar y := z in y,|],0) > 
(letvar z= 1 in [((2,,0),1)/a)letvar y-= 2m year 2a 


[CONTENTS| 


(((ez,0), n (22, 0) SE 1], 0) E (1, (2, 0) a 1], 0) 


[BINDVAR (111)] 
Metvar y :== (0). LJ 1n y 16-00 A ne 
lepra (0 1.0) 


[BINDVAR (IV)] 
Melvar x :— 1 in letvar y := ((22,0), 1) in y,[(2,,0) :2 1]; 1) ^ 
(letvar zc Win letvar y.:— lan" ym) b 


[BINDVAR (1)] 
(letvar y := 1 in y,[(2,,0) :2 11,0) — 
(letvar y :=1 in [(2,,0), 1)/y]y, [(12, 0) :— 1, (2,,0) :— 1], 1) 


[BINDVAR (IV)] 
(letvar x := 1 in letvar y :2 1 in y,|(7,,0) :2 1,1) ^ 
(lEbvar z zdindetvarnsg O E UA Ea 


[CONTENTS] 


(((2,, 0), 1), (2, 0) := 1, (2y, 0) := 1],0) > (1, (22,0) := 1, (84,0) := 1], 0) 


[BINDVAR (IV)] 
EE ium, 0) 1) — 
(letva = In Eee —- 11, 


|BINDVAR (IV)] 
Metvar x :— 1 in letvar y:— l in ((2,,0), 1), (12, 0) := Ic 


],2) 2 
(letvar z :— | in letvar vy:— lin 1.|(,.0): = 


E 
1, (ty, 0) := 1], 2) 


Figure 3. Sample Program Derivation, continued next page 
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[BINDVAR (11)] 
Metrara im (7 OE 1. 090): 1], 1) — 
axo ES 0s deadiip) 


[BINDVAR (IV )] 
AAA Na ano oe ae eo 
leivanga,— 1 in,1,((2;,0) 0): dead] Ma 


[BINDVAR (II)] 
(letvar z := Minil, (225 0).:2 1^ (2:90) dead nie 
(dile, 0) z dead (20 dead 0) 


Figure 4. Sample Program Derivation, cont. 


an instance of BINDVAR (I1). The final transition is done with BINDVAR (II). So the 
letvar expression evaluates to 1. 


Now let's turn back to the well-typed program 
letvar zr :— letvar y :— Az.z in &y in(* x)(3) 


of Chapter I Section 2, in which the location of y escaped from its scope via the & 
operator and we inferred the type int for this program. Figure 5 shows how this 
program gets stuck due to dereferencing a dead cell. 

The notation 7^ denotes the stuck condition of a rule instance. In the sixth 
transition, *((2,,0),0) attempts to derefence a dead location, which causes the eva- 
lution to get stuck because there is no possible transition that can be made. The 
first three transitions are done with BINDVAR (III), where in the proof search the first 
transition uses an instance of BINDVAR (I), the second transition uses the instances 
of BINDVAR (IV) and REF, and the third transition uses an instance of BINDVAR (II). 
The fourth transition is done with BINDVAR (1), because ((7,,0), 0) 1s a pointer, which 
is a syntactic value and 6 is 0. The fifth transition is done with BINDVAR (111), where 


the instances of APPLY and CONTENTS are used in the proof search. 
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[BINDVAR (I)) 
(letvar y := Az.z in &y,[], 0) > 
(letvar y :— Az.z in |((7,40): 1)/y)| &y, (Gy, 0) c= ha 


[BINDVAR (III)| 
(letvar z :< letvar y :< Az.z in &y in (*z)(3),[], 0) ^ 
(letvar z :— letvar y :— Az.z in &((1,,0), 1) in(* z)(3), [(2,, 0) := Az.z], 1) 


[REF] 
(&((2,, 0), 1), [(2,, 0) :— Az.2],0) — (((25, 0), 0), [(2,, 0) :— Az.2], 0) 


[BINDVAR (IV )] 
(letvar y := Az.z in &((2,,0),1),[(2,,0) :2 Az.z], 1) > 
(lean ono OPI ee MN 


[BINDVAR (III) | 
(letvar x := letvar y := Az.z in &((zy, 0), 1) in(* x)(3), [(2, 
(letvar x := letvar y := Az.z in ((2y, 0), 0) in(* z)(3), 


à 


‚0) := Az.z], 1) ^ 
(23,0) := Az.z], 1) 
[BINDVAR (II) | 


Metvar y-— Az.z in (0550);0); |G,; 0) :— Az: 5 T) — 
(((2,, 0), 0), [(7,, 0) :— dead], 0) 


[BINDVAR (III)] 
(letvar z := letvar y := Az.z in ((2,,0),0) in(* z)(3),[(@,, 0) := Az.2], 1) = 
letvam c0 )SO) SIE CECI Docs f ssxdead 0) 


[BINDVAR (1)] 
letvar z := ((2,,0),0) in (*2z)(3), [(2,,0) :2 dead],0) — 
iSpyar 2-19 0) 0)9m716(2 0) EI S Me, 0) dead. 0) — (GO OI 


Figure 5. Sample Stuck Program, continued next page 
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[CONTENTS| 
(((2,0),1),[(2,,0) := dead, (2,, 0) := ((2,,0),0)],0) — 
(((2,,0 E IO 0) := = dead , (tz, 0) = Häss Dis De 


[APPLY] 
((* v)(3), [(2,, 0) := dead, (22,0) :— ((2,,0),0)],0) ^ 
((* ((2y, 0), 0))(3), (14, 0) := dead, (17, 0) := ((2y, 0), 0)], 0) 


[BINDVAR (III) | 

letvar 2 = (2,0), 0) n EEE, VA) BAR 0) -= dead, 
(1:50) : oO MED leivag — s 0),0) in (x((z,,0),0))(3), 
(6; 0) 5 dead 0) ONO NU) 


(* ((zy, 0), 0)), [(2y, 0) == dead, (22,0) :— ((2,,0),0)],0) À 
((+ ((2y, 0), 0))(3), [(zy, 0) := dead, (15,0) :— ((2,,0),0)],0) ^ 


letvar z :— ((2,,0),0) in [((22,0), 1)/z] (« ((2,,0), 0)) (3), [(1,, 0) :— dead, 
(2,0) := ((2,,0),0)], 1) + 


Figure 6. Sample Stuck Program, cont. 


4. The LOOP Rule 
in the preliminary design of the transition semantics of PolyC, we developed 


three rules, given below, to specify the transitions for the while-do construct. 


(LOOP) 


(1) (e3, 1,6) — (n, u/, 6) (n a nonzero integer) 
(while e, do ez, 11,06) — (e2; while e, do ez, y”, 0”) 


(11) hen. K, ó) = (0, ES ó”) 
(while e, do e2, 1,0) > (unit, p’, 6’) 
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Lut pogle M 
(while e, do e2, u,6) — (while e; do es, u/, 6’) 


Gunter develops a transition semantics for an imperative programming lan- 
guage called Simple Imperative Programming Language (SIPL), and rules (HI) and 
(1) above are closely similiar to Gunter's [Gun92] . There is a subtle difference 
though: ei of while ei do e; 1s not evaluated explicitly in Gunter's system but its 
value is found by a meaning function in one step. In our system we explicitly evaluate 
e, and for this reason a third rule had to be added to the system as shown above. But 
in a short time we realized that this third rule was faulty. Assume in an evaluation 


of a program we reach the point of evaluating the expression, 
while (a,1):=((a,1)+1);1 do e, 


which increments the value stored in address a and then evaluates the body e. This 
is an infinite loop, since the value of a sequential composition e;; €2 is the value of 
ez and, in this program, ez is 1] so the condition is always true. In each iteration, 
(a, 1) := ((a,1) + 1);1 and e must be evaluated. But this is not achievable with 
the above rules. The evaluation starts with repeated applications of rule (111) until 
(a,1) := ((a,1) + 1);1 evaluates to the value 1. At this point, the configuration 
is (while 1 do e,,6) and rule (1) is applied by resulting in the new configuration 
(e; while 1 do e, pu’, ó’). After some applications of COMPOSE, e evaluates to a value 
and then the configuration (while 1 do e, u”, 6”) is found. This completes the first 
iteration of the loop; but notice that we have lost the original program: while 1 do e 
is different than while (a,1) :— ((a, 1) - 1);1 do e. 

To fix this error, we developed the rule below by using a continuation instead 


of the three rules: 
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E H, ó) me ce pr, ó”) 
(while e; do e2, 4,6) — 
(Az.if z then 
ez; while e, do e), 
else 
unit 
) ey, 10,0") 


In this rule, the A abstraction is a continuation. We simplify the rule by 


B — reducing the application of the continuation to ej and arrive at the rule below. 


(er, u, 6) =a (e;, u^; à) 
(while e, do e€2, u,6) > (if e, then e,; while e, do ez else unit, y”, 6’) 


This 1s the rule for loop construct in the present system. 


C. CONCLUSION 


Although we have a better handle on the progress of the evaluations of pro- 
grams, we face an increase in the number of transition rules in the system. When 
we want to add the binary operations to the language, the number of rules increases 
greatly. One possible effect of this 1s that proofs might be complicated and unneces- 


sarıly long. 
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V. CONCLUSIONS AND FUTURE WORK 


A. CONCLUSIONS 


1. Type Inference Algorithm 

We have presented an ML-style type inference algorithm called W. based on 
Milner's algorithm W |Mil78] [DaM82]. An implementation of W, has been given in 
Appendix as part of an interpreter of PolyC. We expect a correctness proof of W, be 


straightforward but it is beyond the scope of this thesis. 


2.  'The Transition Semantics 

An imperative programming language with first class pointers should have 
a stronger property of type soundness than the subject reduction property; 1.e., 11 
a closed term has type 7, then the evaluation of that term yields a value of type 
T if evaluation terminates successfully. For this reason, Smith and Volpano prove 
soundness of the PolyC type system by formulating the evaluation rules of PolyC’s 
natural semantics as an instance of a recursive function called eval [SmV96a]. But 
this proof seems to be slightly informal. To establish a basis for a more formal proof, 
we developed a transition semantics for PolyC and have presented it in this thesis. 
We believe that a transition semantics exposes more information about the course of 
an evaluation, thus making it possible to give more rigorous soundness arguments. 
But a transition semantics tends to introduce a large number of rules in the system, 


which makes proofs more cumbersome. 


B. FUTURE WORK 


1. | Formal Soundness Proof 
Volpano and Smith are currently working on a new soundness proof with 


respect to natural semantics using partial evaluation trees. Pfenning is also expected 
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to give a soundness proof! using the Elf programming language, which is based on the 
linear logical framework concept [Pfe96]. We believe a soundness proof of the PolyC 


type system is possible using the transition semantics given in this thesis as well. 


2. Extending PolyC 

Extending PolyC with integer and boolean operations is a trivial task, and 
they have already been included in the interpreter implementation given in Appendix. 
Polymorphic records and variants, on the other hand, require modifications to the 
type system and to the type inference algorithm. Ohori [Ohor95] investigates an 
ML-style polymorphic record calculus in a functional setting by introducing kinded 
quantification, which places restrictions on possible instantiations of type variables. 
His work is an appealing foundation for labeled records and variants in the PolyC 


language. 


‘Based on the personal communication during ESOP’96, Linköping Sweden 
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APPENDIX. SOURCE PROGRAM FOR THE 


ile 


INTERPRETER 


REMARKS 


Developing a type inference algorithm has led to an implementation of W, to 


see how it works in practice. Besides type inference we also implemented the natural 


semantics of Poly C given in [Sm V96a] and, as a result, we have created an interpreter 


for PolyC. During implementation we tried not to go beyond the PolyC calculus and 


we accomplished this except for SSL lists used in the representation of formal and 


actual parameters. 


Annotations throughout the source code are kept concise by assuming that 


the reader will have some knowledge about programming language theory and some 


experience with functional programming. 


2. 


SSL CODE FOR. THE INTERPRETER 


Y pad ade dll ale kK ak ak k AK kK akak ale 2K k ak k OK ok ak 2K K 


zk 


HH HO ee a us 


This interpreter is written using Synthesizer Generator 
Release 4.2. The code given below is the complete code that 

we have used to generate the interpreter by using the Makefile 
given also below. For space efficiency, we put all the files 
together in this appendix, but each file is clearly 
identifiable by the header provided before the beginning of a. 
file. The textual appearance order of files in this appendix is 
alphabetical except Makefile which is given last. Following are 
the files: 


assign.ssl men si lex.ss] 
assign_infer.ssl ESS pair.ssl 

Pool- ssl int infer.ssl1 pair infer ssil 
bool_infer.ssl lambda.ssl real.ssl 
eval.ssl lambda_infer.ssl real_infer.ssl 
explier ss] let.ssi while.ssl 
id.ssl let, infer.ssl while infer:ssl 
ií scr letarr.ssl Makefile 


4] 


E À X x XA X — 49 x Xx x x= KE H HEH KE KH H F 


if infer.ssl letarr_infer.ssl 


Naming of files are intended to be informative what is in there; 
for instance bool.ssl gives the required definitions like 
abstract syntax, minimal paranthesization, unparsing rules, 
template commands and concrete input syntax of boolean 
operations. Type inference for these operations (constructs) is 
in bool_infer.ssl. 


It should be noted one more time that this interpeter extends 
Poly C [SmV96] with real type and integer and bool operations. 


SE XC XE XX x X * oX* RS 
Ju ac ac, X A E X x x + 


3% 3% ak ak ok kc ok ok HE OK Kok ske sk ok skok ske skoke ske kok RRR GR a 2k ok jolodeolokeolok / 


J 3 56 5 ak OI III IO AA RO RR OK k k ak ək 2k ak ak a ak k ak 2k ak ak ak ak kok 2k 26 2 2k 2 ak ok 


* File Name : assign.ssl * 
* Purpose : Definitions for Compose, Assign, AddrOf, Deref, * 
* Unit, Dead, Uninit, InvalidAddr constructors of * 
* exp phylun. E 


SKK HE DH DH KR ee ee a ea aa ea ea koe ek / 
/* InvalidAddr is returned as a result of a memory lookup */ 


/* Abstract syntax ----------------------------------------------- + / 
exp : Compose (exp exp) 

Assign (exp exp) 

Addr0f (exp) 

Deref (exp) 

Unit () 

Dead, Uninit, InvalidAddr () 


JE MMininal parentresization -—_———— A aa */ 
exp : Compose PP2(0) 

| Assign PP2(0) 

|  AddrOf PP1(0) 

| Deref PP1(0) 
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/* Unparsing -----9€-----s ANN eee EK x / 


/* 

* In [SmV96], * is used for dereferencing. But in this 

* implementation we use ! for dereferencing and * for integer 
* multiplication. 


*/ 
exp : Compose [6^ 2500 lO. | 
| Assign [ 7 ::= @ " %SCPUNCTUATION: :=%S) " € ] 
| | AddrOf [ ^ ::2 "AS(OPERATOR: £/S)" 0 ] 
|  Deref [| 7 S8= "yS (OPERATORS) " 0w] 
| Unit [ ^ ::z "YS(KEYWORD:unit/S)" ] 
| Dead [ 7 ;:= "/S(KEYWORD:dead/S)" ] 
| | Uninit [ ^ ::9 ASCKEXWURD.:uninic4s) ns] 
|  InvalidAddr [ ^ ::- "AS(KEYWORD:invalidAS) 4S 
(KEYWORD: addressAS)" ] 
ENIrIemplate commands ---apf------e--e---—— ee k / 
transform exp 
on ";" <exp>: Compose(<exp>, <exp>), 
on "e;<exp>" e when (e != <exp>): Compose(e, <exp>), 
on "<exp>;e" e when (e != <exp>): Compose(<exp>, e), 
on ":=" <exp> : Assign(<exp>, <exp>), 
on "&" <exp> : AddrOf(<exp>), 
on "!" <exp>: Deref(<exp>), 
on "!" e when (e != <exp>): Deref(e) 
T Concrete input synitai—— —— */ 
Exp ::= (Exp ASSIGN Exp) {$$.abs = Assign(Exp$2.abs, Exp$3.abs) ;} 


I (Exp ’;’ Exp) {$$.abs = Compose(Exp$2.abs, Exp$3.abs) ;} 
| (1? Exp) {Exp$1.abs = Deref (Exp$2.abs) ;} 

|  QC& Exp) ($$.abs = AddrOf(Exp$2.abs);} 

| (UNIT) {Exp.abs = Unit;} 


3 


[CORIO OO OO k k k k K k kk k ak k ak k fe ak ak k 2k ak fe OK OK DK DH ak ak 2k kK k 2K k K kak K ak ak sk kk 


* File Name : assign infer.ssl * 
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* Purpose 


: Type inference for the cons'tors given in assign.ssl 


* 


K ÞK KKK K KK dd ak 3K 3k ak ək 3k ək FK KK ək kK ok ok ok ok ok ok ok ok DK DK DK kK K KK K FK 3K FK 2K K Kk kK KK kkk KKK / 


exp Unit 2% 
exp.typeAssignment - UnitType; 
exp.S = exp.s; 
exp.partial = false; 
ii 
| Dead 4 
exp.typeAssignment = NullType; 
exp.S = FailSubst; 
exp.partial = false; 
} 
| Uninit { 
exp.typeAssignment = UniversalType; 
exp.S = exp.s; 
exp.partial = false; 
d 
| | InvalidAddr 4 
exp.typeAssignment = UniversalType; 
exp.5 = exp.s; 
exp.partial = false; 
D 
|  Deref 1 
local TYPEVAR beta; 
beta - WeakVar(newsymi()); 
exp$2.typeEnv = exp$1.typeEnv; 
exp$2.letvars = exp$1.letvars; 
exp$2.s = exp$1.s; 
exp$1.S = Unify(RefType(TypeVar(beta)), 
exp$2.typeAssignment, exp$2.S); 
exp$1.typeAssignment= ApplySubstToTypeExp(exp$1.S, TypeVar( 
beta)); 
exp$1.partial = exp$2.partial; 
exp$2.sv = exp$1.sv; 
exp$2.encl < exp$l.encl; 
exp$2.top = exp$1.top; 
} 
| Assign 4 
exp$2.typeEnv = exp$1.typeEnv; 
exp$2.letvars = exp$1.letvars; 
exp$2.s = exp$1.s; 
exp$3.typeEnv = ApplySubstToTypeEnv(exp$2.S, exp$1.typeEnv) ; 
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exp$3.letvars - exp$1.letvars; 
exp$3.s - 
with(exp$2) ( 
Ident(Identifier(i)) : exp$2.S, 


Deref(e) : exp$2.S, 
Subscript(*,*) » exp$2:8% 
VoidExp() : exp$2.S, 


default : FailSubst 
ke 


exp$1.typeAssignment = 

ApplySubstToTypeExp(exp$1.S, exp$2.typeAssignment); 
exp$1.S - 

with(exp$2) ( 
Ident(Identifier(i)) 

InLVList(Identifier(i), exp$1.letvars) ? 

Unify(InstScheme(LookupInTypeEnv(i, 

exp$1.typeEnv)) exp$3.typeAssignment ,‚exp$3.S) 

: FailSubst, /* not a letvar id */ 


VoidExp() 
Unify (exp$2.typeAssignment ,exp$3.typeAssignment, 
exp$3.5), 

Deref(e) : 
Unify (exp$2.typeAssignment,exp$3.typeAssignment, 
exp$3.S), 

Subscript(*,*) : 
Unify (exp$2.typeAssignment,exp$3.typeAssignment, 
exp$3.S), 

default : FailSubst 

); 


exp$i.partial = exp$2.partial || exp$3.partial; 
exp$3.sv = exp$i.sv; 

exp$2.sv - exp$1.sv; 

exp$3.encl = exp$1.encl; 

exp$2.encl = exp$i.encl; 


exp$2.top = false; 
exp$3.top = exp$i.top; 
} 
| AddrOf Di 


local TYPEEXP tau; 
exp$2.typeEnv = exp$i.typeEnv; 
exp$2.letvars = exp$i.letvars; 
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exp$2. 
exp$1. 


S = 
aes 


exp$1.s; 


with(exp$2) ( 


); 


exp$1. 
exp$1. 


tau = 


Ident (Identifier(i)) 
InLVList (Identifier(i) ,exp$1.letvars)? 
Unify (TypeVar(WeakVar(newsymi())) ,tau,exp$1.s) 
: FailSubst, /* not a letvar id */ 


VoidExp() : exp$2.S, 
Deref (4) : exp$2.S, 
Subscript(*, *) : exp$2.S, 
default : FailSubst 
typeAssignment - RefType(tau); 


partial - exp$2.partial; 


with(exp$2) ( 


exp$2. 
exp$2. 


exp$2 


Compose 
exp$2. 
exp$2. 
exp$2. 
exp$3. 
exp$3. 
.typeEnv - 


exp$3 


exp$1 
exp$1 


exp$1. 


>= 
.typeAssignment = 


IdentíIaentafier(i)).: 


InstScheme(LookupInTypeEnv(i,exp$1.typeEnv)), 


VoidExp() : TypeVar(WeakVar(newsymi())), 
Deref(*) : exp$2.typeAssignment, 

Subscript(*, *) : exp$2.typeAssignment, 
default : NullType 


sv = exp$1.sv; 
encl = exp$i.encl; 


.top = exp$1.top; 


x 

typeEnv = exp$1.typeEnv; 

letvars = exp$1.letvars; 

exp$1.s; 

exp$2.S; 

exp$1.letvars; 

ApplySubstToTypeEnv(exp$2.S, 
exp$1.typeEnv); 

exp$3.S; 


S = 
S = 
letvars = 


exp$3.typeAssignment; 
partial = exp$2.partial || exp$3.partial; 
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exp$3.sv - exp$1.sv; 
exp$2.sv = exp$1.sv; 
exp$3.encl » exp$1.encl; 
exp$2.encl = exp$i.encl; 
exp$2.top = false; 
exp$3.top = exp$i.top; 


exp : Deref (in TypeErrors on (exp$1.S == FailSubst 44 
exp$2.S != FailSubst);) [| TypeErrors 2 : "Deref/n"" ] 
| Assign {in TypeErrors on (exp$1.S == FailSubst && 
exp$2.S != FailSubst && exp$3.S != FailSubst) ;} 
[ TypeErrors 0 : "Assign/n""" ] 
| AddrO0f {in TypeErrors on (exp$1.S == FailSubst && 
exp$2.S != FailSubst);} [ TypeErrors © : "AddrOfZn"^ ] 


[| kokokekokok ae ak ak ak ae > ae ak ak ae ak 3% ak ook ok ROO AAO ROR ROK KEK K ok ook okeke 3 2 21 2K 26 a 2k ak 2k 2k 2k 2k 2k 2k 


* File Name : bool.ssl * 
* Purpose  : Boolean operations. * 
OO ORC fee ae fe ae ae ROK I IOI IO ee fe ae fe ae k kk kk kkk kkk kk / 


ber a Se ee me a */ 
exp : Not(exp) 
| And, Or, Equal, NotEqual(exp exp) 


3 


Ci na lent Reset I on === k / 
exp : Not PP1(9) 

Andi pPP2(3) 

Or —PP2(2) 


| 

| 

| Equal  PP2(4) 
| NotEqual PP2(4) 


3 


O A a z nu x / 
exp : Not [^ ::- "AS(PUNCTUATION:" 1p "AS(OPERATOR: /«not» 4S)" 0 
1/5 (PUNGDUATION:" rp "Z5)"] 
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| And [7 ::= "YS(PUNCTUATION:" 1p "%s)" € " %S(OPERATOR:&&%S) " 
@ "Y%S(PUNCTUATION:" rp "YS)"] 


| Or [7 ::< "%S(PUNCTUATION:" lp "%S)" € " %S(OPERATOR: | |%S) " 
QU SICPUNGINSDION:U rp '4$)' 
| Equal [7 ::= "“4S(PUNCTUATION:" lp "%s)" O " %/sS(OPERATOR:<YS) " 
© “/SCPUNGEUATION ED SM] 
| NotEqual [^ ::- "AS(PUNCTUATION:" lp "%S)" € " YS(OPERATOR: 


Wene24s) "Q0 "XSCOBENCTUATION:" rp '4S)''] 


/* Template commands --------------------------------------------- * / 
transform exp 

on "7" <exp> : Not(<exp>), 

on "K" <exp> : And(<exp>, <exp>), 

on "||" <exp> : Or(<exp>, <exp>), 

on "=" <exp> : Equal(<exp>, <exp>), 

on "<>" <exp> : NotEqual(<exp>, <exp>) 


. 
3 


/* Concrete input syntax ----------------------------------------- */ 
Exp ::= ("BED Exp$t.abs»= Not (Expt2labs); ) 
| | (Exp LOGICALAND Exp) 
{ Exp$1.abs = And(Exp$2.abs, Exp$3.abs); } 
| (Exp LOGICALOR Exp) 
{ Exp$1.abs = Or(Exp$2.abs, Exp$3.abs); } 
| (Exp ’=’ Exp prec ’=’) 
{ Exp$1.abs = Equal(Exp$2.abs, Exp$3.abs); } 
| (Exp NOTEQUAL Exp prec NOTEQUAL) 
{ Exp$1.abs = NotEqual(Exp$2.abs, Exp$3.abs); } 


[RRR ka K k 2k 


* File Name= bool inter ssl * 
* Purpose : Type inference for the cons’tors given in bool.ssl * 
xk ok A A aR a a ae ae ok 2k A 2k a 2k 22k 2k a 2k 2 2k a ae ak ak ak ak ak kok sk kok skok / 


exp : Not { 
exp$2.typeEnv = exp$1.typeEnv; 
exp$2.letvars = exp$1.letvars; 
exp$2.s = exp$1.s; 
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exp$1. 


exp$1 
exp$1 


exp$2. 
.encl = exp$1.encl; 


exp$2 
exp$2 
D 


And, Or 


exp$2 


exp$3 
exp$1 


exp$1 
exp$1 


exp$2 
exp$3 
} 


exp$2 
exp$2 
exp$3 


exp$2. 
exp$3. 


exp$3 
exp$1 


exp$1 
exp$1 


.typeEnv - 
exp$2. 
exp$3. 
exp$2. 
exp$3. 


S = Unify(exp$2.typeAssignment, 
IntType, exp$2.S); 


.typeAssignment = IntType; 
.partial = exp$2.partial; 


sv = exp$1.sv; 


.top = exp$1.top; 


{ 

exp$1.typeEnv; 
exp$1.letvars; 
letvars = exp$1.letvars; 

s = exp$1.s; 

s = Unify(exp$2.typeAssignment, 
IntType, exp$2.S); 


letvars = 


.typeEnv = ApplySubstToTypeEnv (exp$3.s, 
exp$1.typeEnv); 
.S = Unify(exp$3.typeAssignment, 


IntType, exp$3.S); 


.typeAssignment = IntType; 

.partial = exp$2.partial || exp$3.partial; 
exp$3. 
exp$2. 
exp$3. 
exp$2. 
.top = false; 
.top = exp$1.top; 


sv = exp$i.sv; 
sv = exp$1.sv; 
encl = exp$1.encl; 


encl = exp$1.encl; 


Equal, NotEqual { 


.typeEnv = exp$1.typeEnv; 

.letvars = exp$i.letvars; 

.letvars = exp$i.letvars; 

s = exp$i.s; 

s = exp$2.S; 

.typeEnv = ApplySubstToTypeEnv(exp$2.S, exp$1.typeEnv); 
.S = Unify(exp$2.typeAssignment, exp$3.typeAssignment, 


exp$3.S); 


.typeAssignment - IntType; 

.partial = exp$2.partial || exp$3.partial; 
exp$3. 
exp$2. 
exp$3. 


sv 7 exp$1.sv; 
sv = exp$1.sv; 
encl = exp$i.encl; 
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exp$2.encl = exp$1.encl; 
exp$2.top = false; 
exp$3.top = exp$1.top; 

} 


exp : Not tin TypeErrors on (exp$1.5 == FailSubst && 
exp$2.S != FailSubst); ) l TypeErrors 0 : "Not/n" ^ ] 

| And, Or din TypeErrors on (exp$1.S << FailSubst && 

exp$2.S !- FailSubst &£& exp$3.S !- FailSubst);) 
| And  [ TypeErrors € : "And/n" ^ ^ ] 
le. Or [ TypeErrors 0 : "Om wj 
| Equal, NotEqual {in TypeErrors on (exp$1.S == FailSubst && 

exp$2.S != FailSubst && exp$3.S != FailSubst) ;} 

| Equal { TypeErners Owaw'EqgualZn 21525. ] 
| NotEqual[ TypeErrors 0 : "NotEgual%n" ^ ^ ] 


J| s ak ak ak akak ak ak ak ak ak ak ak ak ak ak ak ak akcak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ae ak ak ak ak ak ak ak ak ak ak ak kok sk kok k skok sk skok sk 
* File Name : eval.ssl 

* Purpose : Implements the natural semantics (structured 

* operational semantics) of Poly C wrt the rules 
given in [SmV96]. User has the option to evaluate 
a program or not by clicking on the button labeled 
eval-on. 

When the evaluation of a program gets stuck due 

to one of four error cases described in [SmV96] 
the interpreter returns the partially evaluated 


program as a result for debugging purposes. * 
> ae ak a ak a a a ak ae ak ak ak ak ae ak ae a ak ae ak eek D HO OK 2K kk kk 2k a ak ke ea ak ak ak ae ak DK sk skok skok sk skok sk kok skokoskok / 


EE A EX E X X* x 


E x X X XX X 2% 


MEMORY : NullMem() GO: ul 
| MemConcat (LOCATION exp MEMORY) { 
INHSILENCE (exp) 


} [0 : "V [" o " \<rightarrow>" Q iy o © Lat? 


/* Result of an evaluation * / 
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EVAL : EvalPair(exp MEMORY){ 
INHSILENCE(exp) 
) —* : "AS(PUNCTUATIONSOAS)" O "ASICPUNCTUATION: 4S9 Ao" JO 
"/S(PUNCTUATION:)%S)" ] 


=~ 
+ 


We have two different array subscript constructors : one returns 

a value as a result of the evaluation (r-value) and the other 
returns a Varloc (l-value). Having these two constructors is 

an efficient way of implementing these two different occurrences. 
Otherwise, if we had only one constructor that returns Varloc 

then the result of the evaluation of an expression occuring 

in r-value context must be checked if the result is a Varloc which 
must be dereferenced with an extra step. 


Bx ke KK KK KK 


x 
la 


NS 
* 


We add basic logical operations to the language. They 

* implement the same C semantics as one would expect. 

* False is denoted by 0 and True is denoted by a non-zero 
* value; a logical operation constructors returns 1 if the 
* result of the operation is True. 


*/ 


EVAL eval (exp e, MEMORY mu) { 
with (e)«( 
Varloc(1) 
EvalPair(MemoryLookUp(1, mu), mu), 
Sum(e1, e2): 
let EvalPair(vi, mui) = eval(ei, mu) in ( 
let EvalPair(v2, mu2) = eval(e2, mul) in ( 
Wal Gene val) | 
IntOp(i1): with (v2) ( 
intup (2): Eval ar Intp ils 12) mu2), 
default : EvalPair(Sum(vi, v2), mu) 
y. 
default: EvalPair(Sum(vi,e2), mu) 
DOS 
PtrAdda(el ez). 
let EvalPair(vi, mul) = eval(ei, mu) in ( 
let EvalPair(v2, mu2) = eval(e2, mul) in ( 


ol 


uich (vid) ( 
RemiestLoc(s,o)): with (v2)( 
IntOp(i): EvalPair(Refloc(Loc(s, INTtoSTR( 
STRtoINT(o) + i))), mu2), 
default : EvalPair(PtrAdd(vi,v2),mu) 
D 
default: EvalPair(PtrAdd(vi, e2), mu) 
Job: 
Subscript(el, e2): 
let EvalPair(vi, mul) = eval(e1, mu) in ( 
let EvalPair(v2, mu2) < eval(e2, mul) in ( 
wie dk 
Reflóc(Loc Ca ok 
toit b ande 
IntOp(i): 
EvalPair(MemoryLookUp(Loc(s,INTtoSTR( 
STRtoINT(o)*i)), mu2), mu2), 
default : EvalPair(Subscript(v1,v2),mu) 
D, 
default : EvalPair(Subscript(vi,e2), mu) 
DD 
SubscriptL(el, e2): 
let EvalPair(vi, mui) = eval(ei, mu) in ( 
let EvalPair(v2, mu2) = eval(e2, mui) in ( 
wih (vi) € 
Refloc(Loc(s,o)): with (v2) ( 
IntOp(i) : EvalPair(Varloc(Loc(s,INTtoSTR( 
STRtoINT(o)*i))), mu2), 
default : EvalPair(SubscriptL(v1, v2), mu) 


d 
default : EvalPair(SubscriptL(vi, e2), mu) 


D» 


Duas ecl. e2x€ 
let EvalPair(vi, mui) = eval(ei, mu) in ( 
let EvalPair(v2, mu2) = eval(e2, mul) in ( 
with ue 1) a 
IntOp(i1): mithe(va) « 

IntOp(12): EvalPair(IntUp(i1t - 12), mh 
default: Evalbauir(DitffQvil v2) mu 

DE 

defanlt: EvalPair(Di$£(vi, e2)7 mu) 
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os 
prod(el mco 


let EvalPair(vi, mui) = eval(ei, mu) in ( 
let EvalPair@2,,mu2) = eval(e2, mulið imi 
withwent)uw 


IntOpCi1): wdthee s a 
Inte o ENEvalPajirQIntOp(i1 * i2), mu2), 
default: EvalPair(Prod(vi, v2), mu) 
Je 
default: EvalPair(Prod(vi, e2), mu) 
Kap 
LessThan (elp ee): 
let EvalPair(vi mul) =<feyal(el, mu) mt 
let EvalPair(v2, mu2) = eval(e2, mul) in ( 
with (v1) ( 
ATI A ZA 
IntOpG2) :skvalPaim@intieG@a i < 12) 7 1 


: 70), mue». 
default: EvalPair(LessThan(vi, v2), mu) 
JE 
default: EvalPair(LessThan(v1, e2), mu) 


Lige 
LessThanOrEqual(ei, e2): 
let EvalPair(vi, mui) = eval(ei, mu) in ( 
let EvalPair(v2, mu2) = eval(e2, mui) in ( 
with (vi) ( 
Mt) 
intra?) ZEyallBaır (Ineapl(il <= 12) 71:0), 


mu2), 
default: EvalPair(LessThanOrEqual(vi, v2), mu 
23 
default: EvalPair(LessThanOrEqual(vi, e2), mu) 


JO, 
GreaterThan(ei, e2): 
let EvalPair(vi, mui) = eval(ei, mu) in ( 
let EvalPair(v2, mu2) < eval(e2, mul) in ( 
with (v1) ( 
Int Op. Ga) igs thu 
IntOp@2) > EvalPasép COCHE AMD 0). 
mu2), 
default: EvalPair(GreaterThan(vi, v2), mu) 


); 
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default: EvalPair(GreaterThan(v1, e2), mu) 

WDR 

GreaterThanOrEgual(e1, e2): 
let EvalPair(vi, mui) = eval(ei, mu) in ( 
let EvalPair(v2, mu2) = eval(e2, mui) in ( 

with T 

IntOp(u1): withww2)( 
Inter 2): EvalPair(/ntOp((11 >: i12) * 1: 2008 


mu2), 
default: EvalPair(GreaterThanOrEqual(v1, v2), 
mu) 
> 
default: EvalPair(GreaterThanOrEqual (vi, eil, mu) 


2908 
ouo t e me 2 
let EvalPair(vi, mul) = eval(ei, mu) in ( 
let EvalPair(v2, mu2) = eval(e2, mui) in ( 
with (vet 
tatop il) iuith (v2) ( 
IntOp(i2): (i2 == 0) ? EvalPair(Quot(vi, v2),mu) 
: EvalPair(Int0p(i1 / 12), mu2), 

default: EvalPair(Quot(vi, v2), mu) 


ds 
default: EvalPair(Quot(vi, e2), mu) 
owe, 
Not(e): let EvalPair(v, mui) = eval(e, mu) in ( 
with (v) ( 


IntOp(b): EvalPair(IntOp((b == 0) ? 1: 0), mui), 
default: EvalPair(Not(v), mu) 
BER 
Andlel, e2): 
let EvalPair(vi, mul) = eval(e1, mu) in ( 
ler EvalPanr (vu mu) =" ey all Cel mmi eim 
A vD 
IntOpb4): withwv2) ( 
IntOp(b2): EvalPair(IntOp(((b1 != 0) dé 
(po (290957 € 0) mu2). 
default: EvalPair(Amd(v1, v2), mu) 
2» 
default: EvalPair(And(vi, e2), mu) 
owe, 
eee?) 
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let EvabPair(mi mui) s eval(e1, mu) ind 
let EvalPair(v2, mu2) = eval(e2, mul) in ( 
with (v1) ( 
IntOp(bl): wath em 
IntO0p(b2): EvalPair(Int0p(((b1 != 0) || 
(b2 != 0)) ? 1: 0), mu2), 
default: EvalPair(Or(vi, v2), mu) 
JE 
default: EvalPair(Or(vi, e2), mu) 
ye 
Equal(ei, e2): 
let EvalPair (vil mul) = eval(e mu) in ( 
let EvalPair(v2, mu2) = eval(e2, mul) in ( 
Value(v1) ? Value(v2) ? EvalPair(IntOp((vi == v2) ? 1 
M0) mu?) 
: EvalPair(Equal(vi, v2), mu) 
: EvalPair(Equal(vi, e2), mu) 
25/5 
NotEgual(e1, e2): 
let EvalPair(vi, mui) = eval(ei, mu) in ( 
let EvalPair(v2, mu2) < eval(e2, mul) in ( 
Value(vi) ? Value(v2) ? EvalPair(IntOp((vi1 !- v2) ? 1 
- 0)... 102) 
: EvalPair(NotEqual(v1, v2), mu) 
: EvalPair(NotEqual(vi, e2), mu) 


Zeie 

Deret(el): 

let EvalPair(vi, mui) » eval(ei, mu) in ( 
weehe@1) ( 

Refloc(1): EvalPair(MemoryLookUp(1, mui), mul), 
default: EvalPair(Deref(vi), mu) 
295 

Call(ei, adim 


let EvalPaairtvi, mul) z eval(el, mu) in ( 
let EvalPair(v2, mu2) = EvalList(al, mul, 
ActualParamListNil()) in ( 
with(vi)( 
Lambda(x,e2): with(v2) ( 
Call(Unit, a2): eval(ReplaceWithActuals( 
a? ewen ml kb 
Call(Dead, a2): EvalPair(Call(vi, a2), mu2), 
default: EvadiPair(Call Ga, 
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v2::ActualParamListNil),mu) 
/* never happens */ 


d 
default: EvalPair(Call(vi, ai), mu) 
Je 
Assign(e1, e2): 
with(ei) ( 
Beremo el)" 


let EvalPair(vi, mul) = eval(e1, mu) in ( 
let EvalPair(v2, mu2) = eval(e2, mul) in ( 
with (vi) ( 
Refloc(1): with (MemoryLookUp(1, mu2)) ( 
Dead: EvalPair(Assign(Deref(Dead), e2), 
mu), 
default: Value(v2) ? 
EvalPair(v2, UpdateMemory(1, v2, mu2)) 
: EvalPair(Assign(Varloc(1), v2), mu) 
Ja 
default:EvalPair(Assign(Deref(vi), e2), mu) 
) we, 
Subscript(e3, e4): 
let EvalPair(vi, mui) = 
eval (SubscriptL(e3,e4), mu) in ( 
let EvalPair(v2, mu2) = eval(e2, mui) in ( 
with (v1) ( 
Varloc(1): Value(v2) ? EvalPair(v2, 
UpdateMemory(1, v2, mu2)) 
: EvalPair(Assign(vi,v2), mu), 
default : EvalPair(Assign(vi, e2), mu) 
II 
Vamloc (15 
let EvalPair(v, mul) = eval(e2, mu) in ( 
Value(v) ? EvalPair(v, UpdateMemory(1, v, mu1)) 
: EvalPair(Assign(el,v), mu)), 
default: EvalPair(e, mu) 
J; 
Rosse 
with(e1) ( 
Deref(e2): 
let EvalPair(vi, mui) = eval(e2, mu) in ( 
with (v1) ( 
heftboc(l): EvalPair(vdWWe mul), 
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default : BywalPaan Mddrot (Deret(v1)) ent 


dis 
Subscript(e2, e3): 
let EvalPair(vi, mul) = eval(SubscriptL(e2, e3),mu) in ( 
with (v1) ( 
Varloc(1): EvalPair(Refloc(1), mul), 
default : EvalPair(AddrOf (vi), mu) 
) 
Ja 
Varloc(1): EvalPair(Refloc(1), mu), 
default : EvalPair(e, mu) 
Je 
Compose(el, e2): 
let EvalPair(v, mul) = eval(el, mu) in ( 
Value(v) ? eval(e2, mul): EvalPair(Compose(v, e2), mu) 
JE 
While(e1, e2).; 
let EvalPair(vi, mui) = eval(el, mu) in ( 
with (vi) ( 
Intüp(n) 2a 0 
let EvalPair(v2, mu2) = eval(e2, mul) in ( 
Value(v2) ? eval(e, mu2) 
: EvalPair(While(vi, v2), mu)) 
: EvalPair(Unit, mui), 
default: EvalPair(While(vi, e2), mu) 
Ji 
Bondlel e2, 23): 
let EvalPair(vi, mul) = eval(e1, mu) in ( 
Wachee) ( 
IntOp(n): eval((n != 0) ? e2: e3, mul), 
default: eval(Cond(vi, e2, e3), mu) 
del ; 
LetVar(x, el; e2): 
let EvalPair(vl, mul) = eval(el, mu) in ( 
Value(v1) ? 
let 1 = (newsymi())[2:] in ( 
let EvalPair(v2, mu2) = 
eval (ReplaceIn(Varloc(Loc(1,INTtoSTR(0))), x, e2), 
UpdateMemory(Loc(1, INTtoSTR(0)), vi, mui)) in ( 
Value(v2) ? EvalPair(v2, UpdateMemory(Loc(l, 
INTtoSTR(0)), Dead, mu2)): EvalPair(v2, mu))) 


OT 


: EvalPair(LetVar(x, v1, e2), mu)), 
Let(x, el, e2): 
let EvalPair(vi, mul) = eval(ei, mu) in ( 
Value(v1) ? eval(ReplaceIn(v1, x, e2), mut) 
: EvalPair(Let(x, vi, e2), mu) 
JE 
LetArr(x, elwc2): 
let EvalPair(vi, mul) = eval(ei, mu) in ( 
with ní 
IntUüp(n): Ew» 0077 
let EvalPair(v2, mu2) = InitializeArray(n, mul) in ( 
let EvalPair(v3, mu3) = eval(Replaceln(v2, x, e2), 
mu2) in ( 
Value(v3) ? EvalPair(v3,MarkDead(n, v2, mu3)) 
: EvalPair(v3, mu2) 
)) 
: EvalPair(LetArr(x, vi, e2), mu), /* n «902 
desanbt-sBvarlPaugr(betArr(x. vi, e295 mu» 
De 
Pair(el, e2): 
let EvalPair(vi, mui) = eval(ei, mu) in ( 
Value(vi) ?wLtetwEvalPair(v29mu2) - eval(e2, mui) in ( 
Value(v2) ? EvalPair(Pair(vi, v2), mu2) 
:NEvalPair(Pair(vi, v2). mu) 


) 
: EvalPair(e, mu) 
e 
default: EvalPair(e, mu) 


) 
Lë 


/* Is the expression e a syntactic value? */ 
BOOL Value(exp e) { 


with(e) ( 
Lambda(*,*): true, 
IntOp(*)  : true, 


RealOp(*) : true, 
Refloc(*) : true, 


Ident (*) true 
Unit : true, 
default : false 
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de 


/* Replace all free occurrences of formal parameters given by 
* f in e with the actual parameters given by a. 


* / 
exp ReplaceWithActuals(actualParamList a, formalParamList f, exp e) 4 
with(a) ( 
ActuslParankastPair (vimerestide 
with il 
FormalParamListPair(x, rest2): 
ReplaceIn(vi, x, ReplaceWithActuals(resti, rest2, e)), 
default: e 
Je 
default: e 
) 
ls 
/* [v/x]e -- replace all free occurrences of x in e by v * / 
exp ReplaceIn (exp v, Id x, exp e) { 
With Goer ( 
gallo ee 
Identifier(y): ReplaceAux(v, y, e) 
) 
Lé 


exp ReplaceAux (exp v, ID id, exp e) { 
intime) ( 
BdentMdentifaer(x)): (id -- GOM v: ve) 
AddrOf(e1): AddrOf(ReplaceAux(v, id, e1)), 
Assign(el,e2): Assign(ReplaceAux (v, id, ei),ReplaceAux (v, id 
,e2)), 
Deref(eli): Deref(ReplaceAux(v, id, e1)), 
Compose(ei, e2): Compose(ReplaceAux(v, id, ei), ReplaceAux(v, 
nmdmev) im 
Lambda(f, ei): IsFormalParameter(id, f) ? e 
: Lambda(f, ReplaceAux(v, id, el)), 
While(e1, e2): While(ReplaceAux(v, id, ei) ,ReplaceAux(v, id, e2) 
25 
Let(Identifier(x) el; e2): 
(id == x) ? Let(Identifier(x), ReplaceAux(v, id, el), e2) 
: Let(Identifier(x), ReplaceAux(v, id, el), 
ReplaceAux(v, id, e2)), 
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PetvorlIdentitienes, el, ez): 
(id == x) ? LetVar(Identifier(x), ReplaceAux(v, id, el), e2) 
: LetVar(Identifier(x), ReplaceAux(v, id, el), 
ReplaceAux(v, id, e2)), 
Letärr(TIdentifien@x), ei, e2): 
(id == x) ? LetVar(Identifier(x), ReplaceAux(v, id, ei), 
e2) 
: LetArr(Identifier(x), ReplaceAux(v, id, ei), 
ReplaceAux(v, id, e2)), 
PtrAdd(ei, e2): PtrAdd(ReplaceAux(v, id, ei), ReplaceAux(v, id, 
e2)), 
Subscript(el, e2): Subscript(ReplaceAux(v, id, el), ReplaceAux( 
E E 
SubscriptL(ei, e2): SubscriptL(ReplaceAux(v, id, el), ReplaceAux( 
V, id, e2)9P 
Pair(e1, e2): Pair(ReplaceAux(v, id, ei), ReplaceAux(v, id, e2) 
des 
Sum(ei, e2): Sum(ReplaceAux(v, id, e1), ReplaceAux(v, id, e2)), 
Diff(ei, e2): Diff(ReplaceAux(v, id, e1), ReplaceAux(v, id, e2 


DER 

Prod(ei, e2): Prod(ReplaceAux(v, id, el), ReplaceAux(v, id, e2) 
LS 

Quot(e1, e2): Quot(ReplaceAux(v, id, e1), ReplaceAux(v, id, e2) 
Je 


LessThan(el, e2): 
LessThan(ReplaceAux(v, id, ei), ReplaceAux(v, id, e2)), 
LessThanOrEqual(ei1, e2): 
LessThanOrEqual (ReplaceAux(v, id, ei), ReplaceAux(v, id, e2)), 
GreaterThan(ei, e2): 
GreaterThan(ReplaceAux(v, id, ei), ReplaceAux(v, id, e2)), 
GreaterThanOrEgual(e1, e2): 
GreaterThanOrEqual (ReplaceAux(v, id, e1), ReplaceAux(v,id,e2) 
des 
Not(e): Not(ReplaceAux(v, id, e)), 
And(ei, e2): And(ReplaceAux(v, id, ei), ReplaceAux(v, id, e2)), 
Or(e1, e2): Or(ReplaceAux(v, id, e1), ReplaceAux(v, id, e2)), 
Equal(ei, e2): Equal(ReplaceAux(v, id, el), ReplaceAux(v,id,e2) 
E 
NotEqual(ei, e2): NotEqual(ReplaceAux(v, id, el), 
ReplaceAux(v, id, e2)), 
Cond(ei, e2, e3): Cond( ReplaceAux(v, id, ei), ReplaceAux(v, id, 
e2), ReplaceAux(v, id, e3)), 
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Call(ei, 1): Call(ReplaceAux(v, id, el), ReplacelnList(v, id,1) 
de 
default: e 


s 


/* Does id occur in formal parameter list x ? */ 
BOOL IsFormalParameter(ID id, formalParamList x) { 


with (x) 
FormalParamListPair(Identifier(v), rest): 
(id == v) ? true: IsFormalParameter(id, rest), 
default: false 
) 


nc 


/* Replace all free occurrences of id in each element e of 1 x/ 
actualParamList ReplaceInList(exp v, ID id, actualParamList 1) í 
Sath CU 
ActualParamListNil: 1, 
ActualParamListPair(e, rest): 
ReplaceAux(v, id, e):: ReplaceInList(v, id, rest), 


YW 


N 
* 


We evaluate the actual paramaters l1 in order and put the 
results into another list 12. We use the constructor Call 

as a placeholder to return the result since it is the only 
expression constructor with a actualParamList type of argument. 
The first argument of Call is used to indicate if the 
evaluation of 11 is completed successfully. If so, we return 
Unit as the first argument and 12 as the second argument, 
otherwise we return Dead as the first argument and a partially 
evaluated list as the second argument. 


x t 9 mU xa Z 


* 
NR 


EVAL EvalList( actualParamList 11, MEMORY mu, actualParamList 12) { 
with 1) 
ActualParamListPair(e, rest): 
let EvalPair(v, muí) = eval(e, mu) in ( 
Value(v) ? EvalList(rest, mul, v::12) 
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: EvalPair(Call(Dead, ReverseList (ReverseList ( 
mest ) 0 wes 12). mui)). 
default: EvalPair(Call(Unit ,ReverseList(12)), mu) 


Js 


actualParamList ReverseList(actualParamList 1) { 
woche uc 
ActualParamListPair(v, rest): ReverseList(rest) © 
ActualParamListPair(v, ActualParamListNil()), 
default: 1 


/* mu[1:-v] -- update(extend) memory mu with binding 1:-v x / 


MEMORY UpdateMemory (LOCATION 1, exp v, MEMORY mu) { 
with (mu) ( 
NullMem(): MemConcat(l, v, mu), 
Memconcat (12 2, m2) GL == 120, "89MÉmConcabtMgMm o" mu2) 
: MemConcat(12, v2, UpdateMemory(l, v, mu2)), 


T 


exp MemoryLookUp (LOCATION 1, MEMORY mu) 4 
with (mu Ru 
MemConcat(12, v2, mu2): (l << 12) ? v2: MemoryLookUp(l, mu2), 
default: InvalidAddr /*Dereference of a non-existence address */ 
) 
Le 


/* Allocate memory cells for the elements of an array of size n and */ 
/* initialize them to Uninit.*/ 
EVAL InitializeArray(INT n, MEMORY mu) 4 
let 1 = (newsymi())[2:] in ( 
let mul = InitializeArrayAuxín - 1, 1, UpdateMemory(Loc(1, 
INTtoSTR(n-1)), Uninit, mu)) in ( 
EvalPair(Refloc(Loc(1,INTtoSTR(0))), mul) 
)) 


is 


MEMORY InitializeArrayAux(INT n, SEGMENT s, MEMORY mu) { 
(n 2 .0).2amu: JnitializeAWBeayAuwx(n - 1, 5; 
UpdateMemory(Loc(s,INTtoSTR(n-1)), Uninit, mu)) 
bc 


/* Mark the cells allocated for the elements of the array as Dead */ 
MEMORY MarkDead(INT n, exp e, MEMORY mu) ( 


Wa ence) c 
Refloc(Loc(s,*)): MarkDeadAux(n, s, mu), 
default : mu /* should never be reached */ 
) 


s 


MEMORY MarkDeadAux(INT n, SEGMENT s, MEMORY mu) { 
(n == 0) ? mu: MarkDeadAux(n-1, s, 
UpdateMemory(Loc(s,INTtoSTR(n-1)), Dead, mu)) 
de 


7 > 2 a 2 2 ak ak ak ak akcak ak ak a ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak a ak ak ak ak ak ak ak ak ak ak ak ak ak ook o ak ak ak ak ak 3k 3k ak 2k ak 2k ak ok 2k ak ak ok ok 2k 


* File Name : explist.ssl * 
* Purpose : A program is an explist composed of terms. * 
ACC ea ak ak ak ae ak ke aka ea ak ak a DH DER DK DIE ak ae ak ee aka ea ak a ea IO IK 1K 3 2k ak ak a aka 2 a / 


root expList; 


/* Abstract syntax ------------------------------ x / 
perm: Static(exp) 
| Dynamic(exp) 


list expList; 
expList : ExpListPair(term expList) 


| ExpListNil() 
EE * / 
term : Static, Dynamic { exp.precedence = 0; } 
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/* Unparsing ----------------------------------------------------- */ 
explist : ExplistPair Wi : EIERE TO eu eo) © ] 


ee S a A O ZZ x / 
ExpList ( synthesized expList abs; ); 
expList ^ ExpList.abs; 
ExpList ::= (Exp) ( ExpList.abs "2 Static(Exp.abs) :: Expkisvnim rm! 
| (exp 2 ;° Explist) 1Emplistoe abs = 
Statde@expvabs) :: Explist$2™aps; y 


J| okokok ak ak oko RK OK kk aK a ok ak 2k 3k 2k 3k a a 32 2k 2k 2k 2 ak ak ak ak ak ak ak ak ak ak 
x File Name : 1a ssl * 


* Purpose : Defines identifiers of the language x 
aa ak ak a ae a ak a ak ak ae ke ak a ae ak ee aka ee a ae ae ae ak ee a ee a ae ak ea ek fe ak ae skokok skok sk skok skok skok skok skok sk skok skok / 


¡Abs tae syntax and pa ni o OTON V PR A EEA DE x / 
Id: IdNull() [ ^ ::2- "%S (PLACEHOLDER: «identifier» /S)" ] 
| Identifier(ID) var 


. 
3 


/* Conegete input?syntaX|---2-2-2522--2055-----------5--- cO NÉS &/ 
id { synthesized Id abs; }; 
Id id.abs; 
id me (METE Jobsa EI as, 
| (IDENTIFIER, PLACEHOLDER) 
{ id.abs = IdNull; } 


AE == eebe */ 
Id {synthesized ID name; 

synthesized BOOL partial; 

hr 
Id : IdNull { 
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Id.name = "_undeclared"; 
Id.partial = true; 
} 
| Ldentrficr mu 
Id.name = ID; 
Id.partial = false; 
i 


RRO OR k kk k k k k k K K K K KKK K K OR OR fe ak ae fe ae ae OR ICI OR IO IR I K K KK k 2K k KK K K K 


* File Name : if.ssl * 
* Purpose : Defines the if-then-else construct * 
xk ok ok ok ZAK K ze K > ok sk D ak ak Dee ae ae ae ae fe ae fe ae k k k k k kk kk kkk k kk kk k k kk k k k kK k K ak ak K kK IK k k kk Kk / 


/* Abstract syntax A nna x / 
exp : Cond(exp exp exp); 


/* Minimal parenthesization -------------------------------------- x / 
exp : Cond { 

exp$2.precedence = 0; 

exp$3.precedence = 0; 

exp$4.precedence = 0; 

y 

O M ——— x / 
exp : Cond 

[^ ::- "WtAUASCKEYWORD:ifA4S) " 0 "ess (KEYWORD :thenAS) " © 

" 4c/S(KEYWORD:else/S) " € " %b/c/S(KEYWORD:fi%S)%)"] 
ae m ile Commanasko-——— dere a BS x / 


transform exp 
on "if" <exp>: Cond(cexp:, <exp exp). 


on "if" e when (e != <exp>): Cond(<exp>, e, <exp>) 
Pesconcrete input syntax --  -- = 2 22 222.2 = */ 
Exp ::- (IF Exp THEN Exp ELSE Exp FI) 


{ Exp$1.abs = Cond(Exp$2.abs, Exp$3.abs, Exp$4.abs); ) 
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/ Ale ak ak K 2 K 3k 2k okeok ok ok K 3k ok okookc ok ok OK CC KE OO OK OO OH OK OH OK OH 2k KG HO OK HO OK OH OK HE DK OK ae a ak 3k 2k 2k ak ak ok 
x File Name : if infer.ssl * 


* Purpose : Type inference for if-then-else construct * 
Ad dd dd dll dd dll dd lll dll dd HE DK OK ok OH kK a kk I a a i ak ke 2 2k 2k a ak ak ak ak 2k 2k / 


exp : Cond 4 

exp$2.typeEnv = exp$1.typeEnv; 

exp$2.letvars = exp$1.letvars; 

exp$3.letvars = exp$1.letvars; 

exp$4.letvars = exp$1.letvars; 

exp$2.s = exp$1.s; 

exp$3.s = Unify(exp$2.typeAssignment, IntType, exp$2.S); 

exp$3.typeEnv = ApplySubstToTypeEnv(exp$3.s, exp$1.typeEnv); 

exp$4.s = exp$3.S; 

exp$4.typeEnv = ApplySubstToTypeEnv(exp$3.S, exp$1.typeEnv); 

exp$1.S = Unify(exp$3.typeAssignment, exp$4.typeAssignment, 

exp$4.S); 

exp$1.typeAssignment = exp$3.typeAssignment ; 

exp$1.partial = exp$2.partial || exp$3.partial || 
exp$4.partial ; 


exp$4.sv = exp$1.sv; 
exp$3.sv = exp$1.sv; 
exp$2.sv = exp$1.sv; 
exp$4.encl = exp$1.encl; 
exp$3.encl = exp$1.encl; 
exp$2.encl = exp$1.encl; 
exp$2.top = false; 
exp$3.top = false; 
exp$4.top = false; 


exp : Cond {in TypeErrors on (exp$1.S == FailSubst && 
exp$2.S !- FailSubst ££ exp$3.S !- FailSubst && 
exp$4.S != FailSubst); } [ TypeErrors 0 : "IfAn" ^ ^ ^ ] 


[RRR ak k kK k kK k k k k k k k k k k fe ae ae k ak ak k k k ak ak ak k k 2k OK ak kek K HE K 
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* File Name : infer.ssl * 
* Purpose : Implementation of the type inference for * 
* Poly C. This implementation is based on * 
* Dennis Volpano's implementation for core ML with * 
* letvar and first-class refs. 


HERO OO EEE / 
STR foreign newsymi(); /* generate symbols *1, *2, x3 .... */ 


/* Poly C has only weak type variables.*/ 
TYPEVAR : WeakVar (STR) [e : e ] 


/* We need this phylum to type the functions of Poly C */ 
st TYPBEXPELST; 


TYPEEXPLIST : TypeExpListNil() [0:] 
| TypeExpListPair(TYPEEXP TYPEEXPLIST) 
[^o  PXSOQOPERATUR SS Stunes2 Aso | 

TYPEEXP : NullType() [ONE “ey 

| UniversalType() [O Mm bor vom Ze] 

Mp e 0 OA STRESS 

| RealType () [6 : "real" |] 

| UnitType () [ONE "unit" ] 

| TypeVar (TYPEVAR) [e : e ] 

| 


MapType (TYPEEXPLIST TYPEEXP)[@ : "(" e "Y%S(OPERATOR: 
\<rightarrow> Y%S)%o" @ ")" ] 
PairType (TYPEEXP TYPEEXP) [O 2 MC OS \<times> " QM 


| RefType (TYPEEXP) [o ETE arm 
NEES HERE 
: TypeExp (TYPEEXP) [e : 0] 
| TypeVarBinding (TYPEVAR TYPESCHEME) [o - lNcforad O] 


3 


TYPEEXP TypeExpOfTypeScheme(TYPESCHEME t) 4 
with(t) ( 
TypeExp(e): e, 
TypeVarBinding(i, s): TypeExpOfTypeScheme(s), 
) 
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i 


/* Substitutions : Finite functions mapping type variables to types 
* Empty substitution is denoted by IdSubst 
*/ 


SUBST  : FailSubst() [O : "FailSubst"] 
| IdSubst() Or = | 
| SubstConcat(TYPEVAR TYPEEXP SUBST) 
[@ > uc O ".ı 60 "So! Q uy. ] 


A 


BOOL InSubst(TYPEVAR tyvar, SUBST s) 4 
with(s) ( 
FailSubst: false, 
IdSubst: false, 
SubstConcat(j, *, sub): j << tyvar ? true : InSubst(tyvar, sub), 
) 
DE 


TYPEEXP LookupInSubst(TYPEVAR tyvar, SUBST s) { 
watch ss ( 
FailSubst: NullType, 
IdSubst: UniversalType, 
SubstConcat(j, t, sub): j << tyvar ? t : 
LookupInSubst(tyvar, sub), 
default : tyvar 


E 


TYPEEXP U1t(TYPEEXP t, SUBST s) { 3 /* close substitution s for t */ 
with (oa 
TypeVar(v) : InSubst(v, s) ? 
Ult(LookupInSubst(v, s), s) : t, 
default : t 


) 
n 
TYPEEXP RecRealAux(TYPEEXP t, SUBST s) i 
with (t) ( 
TypeVar(v) : let e - LookupInSubst(v, s) in ( 
with(e) ( 
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NullType: t, 
Universallype: t, 
default: RecRealAux(e, s) 
) 
Ja 
MapType(u, w): MapType(RecReallistAux(u, s), RecRealAux(w, s)), 
PairType(u, w): PairType(RecRealAux(u, s), RecRealAux(w, s)), 
RefType(u): RefType(RecRealAux(u, s)), 
default: t 


des 


TYPEEXPLIST RecRealListAux(TYPEEXPLIST 1, SUBST s) 4 
With (Cl) 
TypeExpListPair(v, 1) : RecRealAux(v, s) :: RecRealListAux(l, s), 
default : 1 


de: 


TYPEEXP RecReal(TYPEEXP t, SUBST s) { 
with(s) ( 
FailSubst: NullType, 
Tasubst: Ep 
default: ReeResalkux tr 
) 
le 


SUBST RemoveFromSubst(SUBST s, TYPEVAR id) 4 
withe(s) ( 
FailSubst: FailSubst, 
IdSubst: IdSubst, 
SnbstConcat(i, t, sub): 
i == id ? sub : SubstConcat(i, t, RemoveFromSubst(sub, id)), 


LE 


TYPEEXP ApplySubstToTypeVar(SUBST s, TYPEVAR v) 4 
vita (s) ( 
FailSubst: NullType, 
default: let t - LookupInSubst(v, s) in ( 
with (t) ( 
UniversalType: TypeVar(v), 
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default: ApplySubstToTypeExp(s, t) 
) 
)) 
Lë 


TYPEEXP ApplySubstToTypeExp(SUBST s, TYPEEXP t) 4 
with(s) ( 
FailSubst: NullType, 
IdSubsé: €, 
default: 
vitn C) 
TypeVar(u): ApplySubstToTypeVar(s, u), 
MapType(t1, t2): MapType(ApplySubstToTypeExpList(s, ti), 
ApplySubstToTypeExp(s, t2)), 
PairType(ti, t2): PairType(ApplySubstToTypeExp(s, ti), 
ApplySubstToTypeExp(s, t2)), 
RefType(t): RefType(ApplySubstToTypeExp(s, t)), 
default: t 
) 


Is 


TYPEEXPLIST ApplySubstToTypeExpList(SUBST s, TYPEEXPLIST t) 4 
with(t) ( 
TypeExpListPair(v, 1): ApplySubstToTypeExp(s, v):: 
ApplySubstToTypeExpList(s, 1), 
sejejo Zor 
) 
e 


TYPESCHEME ApplySubstToTypeScheme(SUBST s, TYPESCHEME t) 4 
with(t) ( 
TypeExp(e): TypeExp(ApplySubstToTypeExp(s, e)), 
TypeVarBinding(i, u): 
TypeVarBinding(i, ApplySubstToTypeScheme(RemoveFromSubst ( 
DE 


(0 


1 PH 24 ak ak ak ak ak ak ak ae ok ac ak ak ak ac oe oko ok ok akak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak 


x let/letarr/letvar-bound identifier list * 
se ze ze ek es ze se ez ke ok ok I aK ak a ak a ak a ak 2k ak ea ak ak ak ak ak ak ak 2k a sk kok skok k skok / 


St LVLISI, 
LVLIST : LVNil() [O : ] 
| LVCons(Id LVLIST) lO "og o 


3 


EILIST RemoveFromLVList. (Id id  EVLEST 1) 1 
vith (1) ( 
INI l, 
LVCons(v as IdNull(), rest) 
v :: RemoveFromLVList(id, rest), 
cons (rest : (v == id) 7? rest: 
v :: RemoveFromLVList(id, rest) 


Ds 


BONE IDLVLiIsE (Id id, LVLIST 1) { 
with G) € 
LVNil : false, 
icons vo restar == id) ? true : InLVList(id, rest). 
) 
Jis 


Y aldo oda od ad I od a a kak ak a ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak 
* variable/identifier list * 
xk oko oR RR a a ak ak a ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak / 
Best VLIST; 
VLIST : BVNil() [© : ] 

| BVCons(Id VLIST) [or @ [me] © J 


3 


ENNE InVList (Id id, VLIST 1) 4 
With(1) ( 
BVNil : false, 
BVCons(v, rest) : (v == id) ? true : InVList(id, rest), 
) 


m 


PCR OC OO OR I A kkk k kkk kkk k 
* static (top level) variable/identifier list * 


* These identifiers are the ones whose * 
* declaration satisfies the conditions to become* 
* top level as explained in Chapter I. * 


KE OH KOK K aaa RC RR 2 I IR AK IK ka a 2k ak ak ak ak / 
list SYBISTE 
SVLIST : SVNil() [oc 

| SVCons(Id SVLIST) [ONES Oo [Mio | 


3 


[RI OK RK KK aK OK OK 


* Type environments * 
OO KK KK / 


TYREENY : NullTypeEnv() [O : ] 


| TypeEnvConcat (ID TYPESCHEME TYPEENV) 
[O : Ubh O "." ( DEM © u ] 


/* 


* 


RemoveFromTypeEnv 


* Remove entry for id from s. 
* Note: we assume s contains only one entry for id. 
*/ 
TYPEENV RemoveFromTypeEnv(ID id, TYPEENV s) { 
with(s) ( 
NullTypeEnv: s, 
TypeEnvConcat(i, t, tail): 
id == 1 ? tail 
: TypeEnvConcat(i, t, RemoveFromTypeEnv(id, tail)) 


}; 
TYPESCHEME LookupInTypeEnv(ID id, TYPEENV s) { 
win Ssi 


NullTypeEnv: TypeExp(UniversalType), 
TypeEnvConcat(i, t, tail): id -- i ? t : LookupInTypeEnv(id, 


T2 


tail A 
s 


TYPEENV ApplySubstToTypeEnv(SUBST s, TYPEENV e) { 
Ens) ( 
IdSubst: e, 
FailSubst: e, 
default: 
with(e) ( 
NullTypeEnv: NullTypeEnv, 
TypeEnvConcat(i, t, tail): 
TypeEnvConcat(i, ApplySubstToTypeScheme(s, t), 
ApplySubstToTypeEnv(s, tail)), 


n 


J > 5 2 ak ak ak K ak ak ak ak ak ak ak ak ak ak ak > ak ak ak Akk kk k kk k k 


* Generate a generic instance * 
FOO CO OR IK k kk kk k kk kk / 


/* list of type variables */ 
Iur TVLIST; 
TVLIST : TVNilO Ios 
| TVCons(TYPEVAR TVLIST) [0 zmeni!) os 


3 


/* return all type vars in type exp t */ 
TVLIST TvarsIn (TYPEEXP t, TVLIST 1) { 
with (t) ( 
TypeVar(v) E 
MapType(ti1,t2) : TvarsIn(t2,TvarsInList(ti,1)), 
PairType(t1,t2) : TvarsIn(t2,TvarsIn(t1,1)), 


RefType(t) : Tvarsin(t 
default 5d 
) 


Je 


Eeer (TYPEBMPEIST t, WEIST 1) { 


13 


RE EO MC 
TypeExpListPair(v, rest) : TvarsInList(rest, TvarsIn(v, 1)), 
default : 1 


je 


/* is type var x in type var list? */ 
BOOL InTVList (TYPEVAR x, TVLIST 1) { 
with (Del 
TVNil : false, 
TVCons(v, rest) : (v == x) @etrue :"EnauEiseéx, rest) 


Je 


/* all x members not in y */ 
VEIST Bar A WEIT a UE TS Ter) ( 
Mach (x) 
TVNA3 T mg 
TVCons(v,rest) : InTVList(v, y) ? Bar(rest,y) 
: TVCons(v, Bar(rest, y)) 


J; 


/* free type vars in scheme */ 
TVLIST FreeScheme (TYPESCHEME s, TVLIST scvs) { 
wine 
TypeExp(t) : Bar( TvarsInGt, TVNI scvs), 
TypeVarBinding(v, rest) : FreeScheme(rest, TVCons(v,scvs)), 


Ips 


/* free type vars in type environment */ 
TVLIST FreeTe (TYPEENV te) { 
with tel 
NullTypeEnv: TVNil, 
TypeEnvConcat(i,t,tail): FreeScheme(t,TVNil) € FreeTe(tail), 


(4 


/* return a list of noduplicates */ 
TVLIST NodupssORVEISQSUP  TVLISTESESPM 
wo bM 
TVNil: acc, 
TVCons(v, tail) 
InTVList(v,acc) ? Nodups(tail, acc) 
: Nodups(tail, TVCons(v,acc)), 


ine 


TYPESCHEME MkScheme(TVLIST vs, TYPEEXP t) { 
with(vs) ( 
TVNil: TypeExp(t), 
TVCons(v, tail): 
TypeVarBinding(v, MkScheme(tail,t)), 


de 


/* normal closure */ 

TYPESCHEME Close(TYPEENV a, TYPEEXP t) { 
MkScheme(Bar(Nodups(TvarsIn(t,TVNil),TVNil), FreeTe(a)), t) 

d 


/* instantiate a scheme */ 
TYPEEXP InstSchemeAux (TYPESCHEME ts, SUBST s) { 
with(ts) ( 
TypeExp(t) : ApplySubstToTypeExp(s, t), 
TypeVarBinding(v, rest) 
InstSchemeAux(rest, SubstConcat(v, 
TypeVar(WeakVar(newsymi())), s)) 


TYPEEXP InstScheme(TYPESCHEME s) ( 
InstSchemeAux(s, IdSubst) 


Tó 


RRO ak ak ak ae ae a ak ak ae ae ak ak ak ak ae ae ae ak ak ak ak ak ak ak ak ak ak ak ak ak k k 


* Unification of type expressions x 
3% xk ok ak ak ak ak ak ae ak ae ak ak ak ak ak aka ak ae ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak / 


SUBST Unify(TYPEEXP t, TYPEEXP u, SUBST s) { 
s == FailSubst ? FailSubst : Equate(Ult(t, s), Ult(u, s), s) 
E 


/* unifies lefthand side of a function space operator */ 
SUBST UnifyList(TYPEEXPLISI t, IYFEEXPLISI u SUBST s) 1 
(s == FailSubst) ? FailSubst : 
with (t) ( 
TypeExpListPair(vi, resti) 
with(u) ( 
TypeExpListPair(v2, TypeExpListNil()) : 
Equate(Ult(vi, s), Ult(v2, s), s), 
TypeExpListPair(v2, rest2) 
UnifyList(resti, rest2, Equate(Ult(vi, s), Ult(v2, s), s)), 
default : s 
i” 
default : s 


Be 


/x returns length of a list x/ 
INT Length(TYPEEXPLIST 1) { 


With (li) 
TypeExpListPair(v, rest) : 1 + Length(rest), 
default : O 

) 


SUBST Equate(TYPEEXP t, TYPEEXP u, SUBST s) 4 
t zz u ? s : 
with (t) 
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UniversalType(): s, 
TypeVar(v) 
with(u) ( 
UniversalType(): s, 
default: TypeVarÜccurCheck(v, u, s) ? FailSubst : 
SubstConcat(v, u; s), 
E 
RefType(t1): 
vati e 
UniversalType(): s, 
TypeVar(u1): Equate(u, t, s), 
Beriype il ) SUnify(ti, ul, 5), 
default: FailSubst, 


Je 
MapType(t1, t2): 
with(u) ( 
UniversalType(): s, 
TypeVar(ui): Equate(u, t, s), 
MapType (ul, u2): (Length(t1) == Length(ui)) ? 
Unify.(e2, u2, UnifyList(ti. mwih s) VEIT Subst, 
default: FailSubst, 
DE 
Pairiypel ti t2): 
with(u) ( 
UniversalType(): s, 
TypeVar(u1): Equate(u, t, s), 
heirType(uT;€895 -cUDTfyV (t2. u2. Unify(ti Nu, CORE 
default: FailSubst, 
Jus 
default: 
with(u) ( 
UniversalType(): s, 
TypeVar(ui): SubstConcat(ui, t, s), 
default: FailSubst, 
Ip 
) 


I 


BOOL TypeVarOccurCheck (TYPEVAR v, TYPEEXP t, SUBST sub) 4 
with(t) ( 
UniversalType(): false, 


(í 


TypeVar(u): (u == v) || (InSubst(u, sub) && 
TypeVarOccurCheck(v, LookupInSubst (u, sub), sub)), 
MapType(ti, t2): TypeVarOccurCheckList(v, ti, sub) || 
TypeVarOccurCheck(v, t2, sub), 

PairType(ti, t2): TypeVarÜccurCheck(v, ti, sub) |l 
TypeVarOccurCheck(v, t2, sub), 

RefType(ti1): TypeVarOccurCheck(v, tí, sub), 

default: false 

) 

n 


/* implement TypeVarÜccurCheck for a list of type expressions */ 
BOOL TypeVarOccurCheckList(TYPEVAR v, TYPEEXPLIST t, SUBST sub) d 
with(t) ( 
TypeExpListPair(u, rest) 
TypeVarOccurCheck(v, u, sub) ? true 
:TypeVarOccurCheckList(v, rest, sub), 


default : false 


p 


/* Is e a value of Poly C ? */ 
BOOL NonExpansive (exp e) ( 


with(e) M 

Pair(s, t) : NonExpansive(s) && NonExpansive(t), 
Ident (x) "E EM 

Lambda(*, *) : true, 

default : false 

) 


F; 


/* Initial type environment is empty */ 
TYPEENV InitialEnvironment() { NullTypeEnv }; 


LR KR ARR HRK HER ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak > ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak AO 2k 
k File Name : int.ssl * 


* Purpose : Integer operators * 
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co k ZK HO DES HO DH DD DH DK ee ak ak ak ae ee ae ak ak ee ak ae ee ae ae ae ae fe ae ak ak ak k k kkk k kkk Kk kk RR KK IE aK / 


/* Abstract syntax m e eee o a ai */ 


exp : 
| 
| 


. 
2 


IntOp(INT) 

Sum, Diff, Prod, Quot(exp exp) 
LessThan, LessThanOrEqual, GreaterThan, 
GreaterThanOrEqual(exp exp) 


/* Minimal parenthesization -------------------------------------- F 


exp : 
| 
| 


2 


Sum, Diff PP2(6) 

Prod, Quot PP2(7) 

LessThan, LessThanOrEqual, GreaterThan, GreaterThanÜrEqual 
PP2(5) 


Dënn re ng A ne nn 3 
Exp ww Intüp [Nas ma 
| Sum [ " ::z "/4/S(PUNCTUATION:" 1p "/S)" € " %S(OPERATOR:1/S) 
no ' € "ZSWPUNCTUATION:" rp "ASIJ" J 
l Diff [= - VI (ZSKORUNEMATION:;" Ip "A4S)" O " /S(OPERATOR S) 
Lon CS (PUNCTUAPION: "= rp SA y 
|  Proa™ p === "AVS (PUNCTUATION = "=p" ys)" o "YS (OPERATOR: *%⁄S) 
Joe VAS È PUNCTUATION: " rp Sy Fo 
|  Guot [ " ::< "%4/S(PUNCTUATION:" 1p "4S)" @ " /SCOPERATOR:/%S) 
Ko " QUVS(PUNGTUANEDNS rp mie Ltr 
ee bess thane Ue oC EU NCU AION SO 
LS (OPERATOR: <YS ) Montse Wis (PUNCTUATOON 2 "p> "7573201 
|  LessThanOrEqual [ ~ : : ==" {A/S (PUNCTUATION u np "469" c " ZSČ 
OPERATOR:%<le>%S)%o " @ "%ZSCPUNCTUATION:" rp "%S)%}"] 
| GreaterThan [ ~ ::= "AXASCPUNCTUATABEN:" eeh AG AS 
DPERATOR:>%S)%o " € "AS(PUNCTUATION:" rp "4S)4)Y"] 
|  GreaterThanOrEgual [ " ::< "/4/S(PUNCTVATION:" lp "%S)" @ " 
4S (OPERATOR :/<ge>/4S)/0 " € "/S(PUNCTUATION:" ep "%S)%/)"] 
IET Tas e CORAN a */ 


transform exp 


on "+" <exp> : Sum(<exp>, <exp>), 

on "-" <exp> : Diff(<exp>, <exp>), 
on "*'' <exp> : Prod(<exp>, <exp>), 
on "/" <exp> : Quot(<exp>, <exp>), 
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on "c€" <exp> : LessThan(<exp>, <exp>), 

on "<=" <exp> : LessThan0rEqual(<exp>, <exp>), 
on "»" <exp> : GreaterThan(<exp>, <exp>), 

on ''>=" <exp> : GreaterThan0rEqual(<exp>, <exp>) 


KE EE E o uu ENE ED O ee ie ji x / 
Exp ::< (INTEGER) { Exp$1.abs = IntOp(STRtoINT(INTEGER)); } 

| (Exp ’+’ Exp)  ( Exp$1.abs - Sum( Exp$2.abs, Exp$3.abs); ) 

|- (Exp >- Exp) 4 Exp$l.abs - Diff(Exp$2.abs, Exp$3.abs); ) 

| (Exp ’*’ Exp) ‘{ Exp$1.abs = Prod(Exp$2.abs, Exp$3.abs); } 
| (Exp ’/’? Exp)  í( Exp$1.abs = Quot(Exp$2.abs, Exp$3.abs); } 
| 
| 


(Exp ’<’ Exp) (1 Exp$1.abs = LessThan(Exp$2.abs, Exp$3.abs); > 
(Exp LESSEQUAL Exp prec LESSEQUAL) 
( Exp$1.abs - LessThanOÜrEqual(Exp$2.abs, Exp$3.abs); } 
| (Exp ’>’ Exp) {Exp$1.abs = GreaterThan(Exp$2.abs, Exp$3.abs); } 
| (Exp GREATEREQUAL Exp prec GREATEREQUAL) 
{ Exp$1.abs = GreaterThanOrEqual(Exp$2.abs, Exp$3.abs); } 


[DCR COCO OCC RC OK ak aka ak ae ak ak do dak a a ak dak ak ea ak ak ak ok ak ak ak 
* File Name : int_infer.ssl * 
* Purpose : Type inference for integer operators * 
33% ae ak ae ak aka fe fear ak ae aa ae ara ak 2k 3k ak ak ak ae ak a ea a ak ee aa ak ak ak ae a a aka ak ak a DEEE DEEE KR AK NOK / 


expe Ent Op ml 
exp.typeAssignment = IntType; 
exp.S = exp.s; 
exp.partial = false; 

x 
| Sum, Diff, Prod, Quot { 

exp$2.typeEnv = exp$1.typeEnv; 
exp$2.letvars = exp$1.letvars; 

exp$1.letvars; 


exp$3.letvars 

exp$2.s = exp$1.s; 

exp$3.s = Unify(exp$2.typeAssignment, IntType, exp$2.S); 

exp$3.typeEnv = ApplySubstToTypeEnv(exp$3.s, 
exp$1.typeEnv); 

exp$1.S = Unify(exp$3.typeAssignment, IntType, exp$3.S); 

exp$1.typeAssignment = IntType; 
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exp 


exp$1.partial = exp$2.partial || exp$3.partial; 
exp$3.sv = exp$1.sv; 
exp$2.sv = exp$1.sv; 
exp$3.encl = exp$i.encl; 
exp$2.encl = exp$1.encl; 
exp$2.top = false; 
exp$3.top = exp$1.top; 
} 
LessThan, LessThanOrEqual, GreaterThan, GreaterThan0rEqual 4 
exp$2.typeEnv < exp$1.typeEnv; 
exp$2.letvars = exp$1.letvars; 
exp$3.letvars = exp$1.letvars; 
exp$2.s = exp$1.s; 
exp$3.s = Unify(exp$2.typeAssignment, IntType, exp$2.S); 
exp$3.typeEnv = ApplySubstToTypeEnv(exp$3.s,exp$1.typeEnv); 
exp$1.S = Unify(exp$3.typeAssignment, IntType, exp$3.S); 
exp$1.typeAssignment = IntType; 
exp$i.partial = exp$2.partial || exp$3.partial; 
exp$3.sv = exp$1.sv; 
exp$2.sv = exp$1.sv; 
exp$3.encl = exp$1.enc]; 
exp$2.encl = exp$1.encl; 
exp$2.top = false; 
exp$3.top = exp$1.top; 


Sum, Diff, Prod, Quot { in TypeErrors on (exp$1.S == FailSubst 
&& exp$2.S != FailSubst && exp$3.S != FailSubst) ; 


y 

Sum [ TypeEmrors GOweaSum/m' we. w] 
Diff | TypeErrora 0 Dum cs 
Prod  [ TypeErrors 0 : "Prod/n" ^ ^ ] 
Quot | [ TypeErrors 6 : "Quot4n" ^ ^ ] 


LessThan, LessThanOrEqual, GreaterThan, GreaterThanOrEqual 4 
in TypeErrors on (exp$1.S == FailSubst && exp$2.S !- 
FailSubst && exp$3.S != FailSubst) ; 


i 

LessThan [ TypeErrors € : "LessThan^n" ^ ^ ] 
LessThanOrEgual [ TypeErrors € : "LessThan0rEqual%n" ^ ^ ] 
GreaterThan [ TypeErrors 0 : "GreaterThan/n" ^ ^ ] 
GreaterThanÜrEqual 
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[ TypeErrors 0 : "GreaterThanOrEqual/n" ^ ^ ] 


LH HA HA HR HR OK ak ak ORO OOOO OOO OO k k k k k k kk k kk akak aK k kK k aK k K kk kk k 
* File Name : lambda.ssl * 
* Purpose 5 * 

AK OK OK OK OH OK OK DECO CG ROO I OI / 
/* An address is a pair of a segment and an offset. */ 

# define SEGMENT STR 

# define OFFSET STR 


/* Formal parameters of a function is a list of identifiers. */ 
/* Abstract syntax === 7757777727202 7 222 */ 
list formalParamList; 
formalParamList : FormalParamListNil() 
| FormalParamListPair(Id formalParamList) 


FormalParamList { synthesized formalParamList abs; }; 


/* Actual parameters of an application is a list of expressions. */ 
Ve ee ee * / 


list actualParamList ; 
actualParamList : ActualParamListNil() 
| ActualParamListPair(exp actualParamList) 


ActualParamList { synthesized actualParamList abs; }; 


pon ----------------- */ 
Js Abstracta 0 ou x / 
exp VoidExp() 

Refloc, Varloc(LOCATION) 


Lambda(formalParamList exp) 


| 
| Ident (Id) 
| 
| Call(exp actualParamList) 


82 


LOCATION : NullLoc() [6 : ] 
| Loc(SEGMENT OFFSET) I C Ono AN 


A A A LL ÉLUS 
exp { inherited INT precedence; }; 


# define PPi(n) {\ 
local STR Ip;\ 
Wcal SER rp;\ 
exp$2.precedence = (n);\ 


lp = ($$.precedence > (n)) ? "(5 ; IN 
rp = ($$.precedence > (n)) ? ")" : "'"';N 
) 


# define PP2(n) {\ 
Poss) STR lp; 
leča STR rp;\ 
exp$2.precedence = (n);\ 
exp$3.precedence = (n)+1;\ 


lp = ($$.precedence > (n)) ? "(" : "'";N 
rp - ($$.precedence » (n)) ? ")" : "';^ 
} 


/* 


* Values are a subset of the expressions, so SSL expects values to 


* to be attributed as well since expressions are attributed. But the 


* attribution is not important so we define two macros to silence 


*/ 


# define SYNSILENCE(P) P.typeAssignment = NullType;\ 
P.S = IdSubst();\ 
P.partial = false; 


# define INHSILENCE(P) P.typeEnv = NullTypeEnv;\ 
P.letvars = LVNil();\ 
P.s s- IdSubst ();N 
P.precedence = 0;\ 
P.sv = SVNil();\ 
P.encl = true;\ 
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SSL 


Europ pde: 


exp Mc Galle PPS 
| Lambda PP1(0) 


EEE I iL a a * / 
exp :  VoidExp [ ^ ::2 "ZS(PLACEHOLDER: «exp» 48S)" ] 

I Ident [== 

| Refloc ee a 

Varloc LES ; 

| Call [ 7 ::= 0 "44'4S CPUNCTUATION : (4S) 40" 

a 115)1)") 
| Lambda 
NL UULIMSCPUNGEUATEEIUN:' lp "VS /SCPUNCTUATEON: 


Y<lambda>(%S)'" € "4S(PUNCTUATION:) 4S) /S(PUNCTUATION: 
(WS)4L" 0 "YSCPUNCTUATION: ) %S)%S(PUNCTUATION: 
"n rp no) MEM] 


EE A O O x / 
transform exp 

en “fund e: Lambda(<formalParamList>, e), 

onmuecall” <exp> : Call(<exp>, <actualParamList>) , 

on calle : Call(e, <actualParamList>) 
/* Concrete inpub syntax sammemc meom -uw ee E * / 


Exp { synthesized exp abs; }; 

exp  .Exp.abs; 

Exp ::= | (EXP PLACEHOLDER) { Exp.abs = VoidExp; } 
| (id) { Exp.abs = Ident(id.abs); } 


| (LAMBDA “C EormalbaramLast 95 (2 Exp 777) 
{ Exp$1.abs = Lambda(FormalParamList.abs, Exp$2.abs); } 


| (ORED a 
{ Exp$1.abs = Exp$2.abs ; } 


(V (Expui NoctssBESrambist ")* ) 
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{ Exp$1.abs = Call(Exp$2.abs, ActualParamList.abs); } 


/* Unparsinguas--- aussi oo eee a * / 
formalParamList : FormalParamListNil [®:] 
| FormalParamListPair [0 : "%X" - ["Y%S(PUNCTUATION: 
AO ONE Sd 


Concrete input syntax =-----=-- Ze muc o el REUS * / 
formalParamList ^ FormalParamList.abs; 
FormalParamList ::= (id) 4 FormalParamlist.abs = 
(id.abs :: BermalParamLierNil); } 
| (id ’,’ FormalParamList) { FormalParamList$i.abs = 
(id.abs :: FormalParamList$2.abs); } 
Fe Unparsing EES * / 
actualParamList :  ActualParamListNil [C:] 
| ActualParamListPair [ € : ^ ["A4S(PUNCTUATION : , 4S) 
o cH 
Ru * / 
actualParamList ^ ActualParamList.abs; 
ActualParamList ::- (Exp) 4 ActualParamlist.abs = Exp.abs :: 
ActualParamListNil(); } 
| (Exp ’,’ ActualParamList) { ActualParamList$i.abs = 
Exp.abs :: ActualParamList$2.abs; } 


[DOO OOOO RO I a k k kk kk kk kk k kk k kk 
* File Name : lambda_infer.ssl * 
* Purpose ; * 

xk xk > > ke k EE ale lead dle dde od le ld a ea ak ae ae a ae KE DK KG E E / 


/* Common attributes of exp and actualParamList. 
* Attibutes encl, top and sv are used in checking if 
x the free identifiers of a lambda abstraction are top level. 
encl shows if an expression is enclosed by a lambda abstraction; 
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top shows if an expression occurs in a top level scope. For 
instance in letvar x - e 1 ine 2, e_l.top is always false. 
If this letvar expression is enclosed by an expression e then 
e 2.top gets the same value as the value of e.top. Otherwise, 
e 2.top is true; sv is a list of top level identifiers. 


5 


exp, actualParamList { 
inherited TYPEENV typeEnv; 
inherited LVLIST letvars; 
synthesized BOOL partial; 
synthesized SUBST S; 
inherited SUBST s; 
inherited BOOL encl; 
inherited BOOL top; 
inherited SVLIST sv; 
je 


/* Types of expressions of an actualParamList are hold in 
* texlist. texlist is a TYPEEXPLIST which is implemented 
* using SSL list. 

*/ 

actualParamList { synthesized TYPEEXPLIST texlist; }; 

exp { synthesized TYPEEXP typeAssignment; }; 


actualParamList : ActualParamListPair { 
actualParamList$1.texlist = exp.typeAssignment: : 
actualParamList$2.texlist; 

exp.typeEnv = actualParamList$1.typeEnv; 

actualParamList$2.typeEnv = ApplySubstToTypeEnv(exp.S, 
actualParamList$1.typeEnv); 

exp.letvars = actualParamList$1.letvars; 

actualParamList$2.letvars - actualParanListtl. lervars: 

exp.s = actualParamList$1.s; 

actualParamList$2.s = exp.S; 

exp.encl = actualParamList$1.encl; 

actualParamList$2.enel = actualParambist$1.encl; 

exp.top = false; 

actualParamList$2.top = false; 

exp.sv = actualParamList$1.sv; 

actualParamList$2.sv = actualParamList$1.sv; 

actualParamList$1.S = actualParamList$2.S; 
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term : 


term : 


exp : 


actualParamList$1.partial = exp.partial || 
actualParamList$2.partial; 

exp.precedence - 0; 
} 

| ActualParamListNil 4 
actualParamList.texlist - TypeExpListNil; 
actualParamList.S - actualParamList.s; 
actualParamList.partial - false; 


Static, Dynamic { 
localWSUBST finalSubst: 
finalSubst = exp.5; 
exp.typeEnv = InitialEnvironment () ; 
expes = Tdsubst; 
exp.letvars = IdNull() :: LVNil; 
local TYPESCHEME finalTypeScheme; 
finalTypeScheme - 
NonExpansive(exp) ? Close(NullTypeEnv, 
RecReal(exp.typeAssignment, exp.S)) 
TypeExp(RecReal(exp.typeAssignment, exp.S)); 
exp.top = true; 
exp.encl = false; 
exp.sv = SVNil(); 
jr 


3 


Static [ ^ : € "AnAS(PUNCTUATION:: AS) " finalTypeScheme ] 
Dynamic 1 

local exp val; 

val = (exp.S == FailSubst) || (exp.partial) ? 

Tdent (Identitrier 2) 
let EvalPair(v, *) = eval(exp, NullMem) in (v); 

i 
[^ : € "Anval " val " 4S(PUNCTUATION: : 4S) " finalTypeScheme | 


VoidExp { 
exp.typeAssignment = TypeVar(WeakVar(newsymi())); 
exp.S = exp.s; 
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exp.partial - true; 


| Refloc, Varloc {SYNSILENCE(exp)} 
| Ident { 
local TYPESCHEME binding; 
binding = LookupInTypeEnv(Id.name, exp.typeEnv); 
exp.typeAssignment = InstScheme(binding); 
exp.S = binding == TypeExp(UniversalType) ? 
FailSubst /* Free variables cause inconsistency */ 
"expos; 
exp.partial = Id.partial; 


Imcallow 
local TYPEVAR beta; 
exp$2.typeEnv = exp$1.typeEnv; 
exp$2.s = exp$1.s; 
exp$2.letvars = exp$1.letvars; 
actualParamList.letvars - exp$1.letvars; 
actualParamList.s = exp$2.S; 
actualParamList.typeEnv = ApplySubstToTypeEnv(exp$2.S, 
exp$1.typeEnv); 
exp$1.S = Unify(exp$2.typeAssignment, 
MapType(actualParamList.texlist, TypeVar(beta)), 
actualParamList.S); 
beta = WeakVar(newsymi()); 
exp$1.typeAssignment = TypeVar(beta); 
exp$1.partial = exp$2.partial || actualParamList.partial; 
actualParamList.sv = exp$1.sv; 
exp$2.sv = exp$1.sv; 
actualParamList.encl = exp$1.encl; 
exp$2.encl - exp$1.encl; 
actualParamList.top = exp$1.top; 
exp$2.top = false; 
} 
| Lambda { 
local IYPEEFEUST TormalparamType; 
local TYPBEXP tau; 
formalParamType = GenerateTypeVars(formalParamList); 
exp$1.typeAssignment = tau; 
tau = Closed(FreeVarsIn(exp$1, BVNil), exp$1.sv) ? 
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MapType(formalParamType, exp$2.typeAssignment) 
: NullType(); 


exp$1.5 = ((tau == NullType()) || 
MultipleOccurrenceIn(formalParamList)) ? FailSubst() 
exp$2.S; 
exp$2.s = exp$1.s; 
exp$2.letvars = RemoveFPFromLVList(formalParamlist, 
exp$1.letvars); 
exp$2.typeEnv = TypeEnvConcatList(formalParamList, 
formalParamType, RemoveFPFromTypeEnv( 
formalParamList, exp$1.typeEnv)); 
exp$1.partial = exp$2.partial; 
exp$2.sv = RemoveFPFromSVList(formalParamList, exp$1.sv); 
exp$2.top = false; 


exp$2.encl = true; 


sparse view TypeErrors; 


exp : Ident 4 in TypeErrors on (exp.S == FailSubst); } 
| Typekrror s O2 Mid! ua 
| Lambda 4 in TypeErrors on (exp$1.S == FailSubst && 
exp$2.S != FailSubst); } 
[ TypeErrors @ : "Lambdafn" ^ " ] 


transform term 
on '"'eval-on'" 
Static(e) 
when ((!e.partial) ££ (e.S !- FailSubst)) : Dynamic(e), 
on eval-off! 
Dynamic(e) : Static(e) 


3 


/* Return the free variables of e wrt bound variables list 1 */ 
VLIST FreeVarsIn (exp e, VLIST 1) { 
with (e) ( 
Ident(Identifier(x)) : InVList(Identifier(x), 1)? BVNil 
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: BVCons(Identifier(x), BVNil), 


AddrOf (e) werreeVarsin (e l). 
Subscript(ei, e2) : FreeVarsIn (ei1,1) 0 FreeVarsIn (e2,1) , 
Assign(el, e2) merece Narso ei l) O FreeVarsin (e2.l) . 
Ptradalevo e2) : FreeVarsIn (e1,1) € FreeVarsIn (e2,1) , 
Deref (e) : NErecVarsin (e,l), 


Lambda(f, ei) : FreeVarsIn (ei, ConcatFormalParams(f, 1)), 
Let (identifier Gammel) 62) RN rreevarskuuci V MO 

FreeVarsim (e2 Identifier(x)::1) , 
LetVar(Identüfier(x)7 ei, e2)has PreeVarsIn (culmine 

EreeVarsIn (e2, Identifier (x) 108 

LetArr(Identifier(x),ei,e2) : FreeVarsIn (ei1,1) 0 

PreeVarsin (e2 Tdentifier(x): DIF 
Compose(ei, e2) : FreeVarsIn (ei1,1) € FreeVarslIn (e2,1), 
Not(ei) : FreeVarsIn (e,1), 
And(el, e2) : FreeVarsin (e1,1) © FreeVarsin (e2W; 
Drfeime2 7 SrpreeVarstnar (el. W090 FreeVarsims(e2 1); 
Equal(ei, e2) : FreeVarsIn (e1,1) © FreeVarsIn (e2,1), 
NotEqual(ei, e2) : FreeVarsIn (e1,1) @ FreeVarsIn (e2,1), 
Conde le E ee Var ii ello) ó Froeevarsin (ea bo 

Ereevarsin (Leal), 
While(ei, e2) :WFreeVarsiIn (e1,l) € FreeVarsimneéecom. 
Sum(ei, e2) : FreeVarsIn (ei1,1) 0 FreeVarsin (e2,1), 
Diff(el, e2) wErecVvarsüamw(odwi)mO EmeceUarsIn (e2,1), 
Prod(ei, e2) : FreeVarsIn (ei1,1) € FreeVarsIn (e2,1), 
Quot(e1, e2) : FreeVarsIn (e1,1) 0 FreeVarsin (e2,1), 
LessThan(e1, e2) : FreeVarsIn (e1,1) € FreeVarsIn(e2,1), 
LessThanOrEgual(e1, eil : FreeVarsIn (e1,1) @ FreeVarsIn(e2,1), 
GreaterThan(ei1, e2) : FreeVarsIn (e1,1) @ FreeVarsIn(e2,1), 
GreaterThanOrEqual(e1, e2) : FreeVarsIn (e1,1) @ FreeVarsIn(e2,1), 
Pair(el, e2) : FreeVarsin (e1,1)/0 FreeVarsin(e2,1)% 
Cages : FreeVarsIn (e,1) € FreeVarsInList(a,1), 
default: BVNil() /* constants and placeholders */ 
) 
Us 


VLIST ConcatFormalParams(formalParamList 1, VLIST bv) { 
with(1) ( 
FormalParamListPair(v, rest) : ConcatFormalParams(rest,v :: bv), 
FormalParamListNil : bv 
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/* A more general form of FreeVarsIn for finding the 
* free variables in a list of expressions. 
* / 
VLIST FreeVarsInList(actualParamList 1, VLIST bv) 4 
with Ries 
ActualParamListPair(e,rest) 
FreeVarsIn(e, bv) € FreeVarsInList(rest, bv), 
default : BVNil() 


D 


/* Is fv a subset of 1. In other words, we check 
* 1f all the free varibles given by fv occur in 1 
* / 
POOL Closed(VLIST fv, SVLISWWI) 1 
mem E 
BVNil : true, 
BVCons(v, rest) 
TnSVList(v, 1) * Closed(res mih 


: false 
) 
D 
ENESEEIDnSVList (Id id, SVLIST 1) 1 
with (1) ( 
SVNil : false, 
SVCons (v, Best) : (ve id) atrue 
lnsvbistiid. rest) 
) 


SVLIST RemoveFromSVList (Id id, SVLIST 1) 4 
math (1) ( 


SUNT 
SVGons(v$ rest)*"w(v*sz-dgd)w? rest : 
v :: RemoveFromSVList(id, rest) 
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7* Remove let/letvar/letarr bound variables given 
k 1 from b. 
* / 
VLIST RemoveLetbounds (VLIST b, LVLIST 1) { 
WOCHEN ate 
BVNil() : BVNil(), 
BVCons(v, rest) 
InLVList(v, 1) ? v::RemoveLetbounds (rest,1) 
: RemoveLetbounds (rest,1) 


hí 


/* Generate new type variables for the formal parameters 
+ of a function. 
k / 
TYPEEXPLIST GenerateTypeVars(formalParamList 1) ( 
vit (1) ( 
FormalParamListPair(f, rest) 
TypeExpListPair(TypeVar(WeakVar(newsymi())), 
GenerateTypeVars(rest)), 
default : TypeExpListNil() 


hs 


/* Remove the formal parameters from type environment */ 
TYPEENV RemoveFPFromTypeEnv(formalParamList 1, TYPEENV t ) 4 
vie 
FormalParamListPair(Identifier(id), rest) : 
RemoveFromTypeEnv(id,RemoveFPFromTypeEnv(rest, t)), 
default : t 
) 
E 


/* Add type assumptions for the formal parameters given by 1 
* to the type environment. Each formal parameter f in 
* position x of 1, is associated with the type expression given in 
* position x of type expression list e. 
*/ 
TYPEENV TypeEnvConcatList(formalParamList 1, TYPEEXPLIST e,TYPEENV t){ 
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with D 
FormalParamListPair(Identifier(id), rest1) 
vnum (95 ( 
TypeExpListPair(v, rest2) : TypeEnvConcat(id, TypeExp(v), 
TypeEnvConcatList(resti, rest2, t)), 


default : t 
JE 
default : t 


jm 


LVLIST RemoveFPFromLVList(formalParamList 1, LVLIST 1v) ( 
with(1) ( 
FormalParamListPair(v,rest) 
RemoveFromLVList(v,RemoveFPFromLVList(rest, lv)), 
default : lv 


Lë 


SVLIST RemoveFPFromSVList(formalParamList 1, SVLIST sv) 4 
wok) 
FormalParamListPair(v,rest) : 
RemoveFromSVList(v,RemoveFPFromSVList(rest, sv)), 
default : sv 


lee 


/* Functions can only have distinct formal parameters. */ 
BOOL MultipleOccurrenceIn(formalParamList 1) { 
with(1) ( 
FormalParamListNil : false, 
FormalParamListPair(x, rest) 
Occur(x, rest) ? true :MultipleUccurrenceln(rest) 


DE 
BOOL Occur(Id x, formalParamList 1) ( 
marth Cl ae 


FormalParamListNil : false, 
FormalParamListPair(y, rest) 
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(x == y) ? true : Occur(x, rest) 


d 

J 3 K >K K JK ak ak ak ak ak a ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak aka ae ak ak a ak ae ak ak IR CII Kk aK aK k Kk kk 4 2 ak 2k ak ak 
x File Name : let.ssl * 
* Purpose : let and letvar declarations * 


Add KK KK 2k 2k ak ak ak ak ak ak / 


/* Abstract syntax A */ 
exp : Let(Id exp exp) 
| LetVar(Id exp exp) 


3 


/* Minimal parenthesj2atrone o lt x / 
exp : Let, LetVar { 

exp$2.precedence = 0; 

exp$3.precedence = 0; 


EE n * / 
exp : Ler I = TL /SCHKEMNORD : Let SJ yos uno 
" 4S(KEYWORD:in/S)/4t/t4n" 0 "/b/b/n4S(KEYWORD:end/S)/b4)" ] 
| LetVar [ ^? ::2 "AOLEASCKEYWÜURD:letvar/S) " QUE > "Me 
" /SCKEYWORD:in%4S)%t%t%n" O "%b%b/n%/S(KEYWORD:end%S)/b%)" ] 


A —— nn Si x / 
transform exp 

on "let" <exp>: Let(<Id>, <exp>, <exp>), 

on "let<Id><exp>e" e when (e != <exp>): Let(<Id>, <exp>, e), 

on "let<Id>e<exp>" e when (e != <exp>): Let(<Id>, e, <exp>), 

on "letvar'" <exp>: LetVar(<Id>, <exp>, <exp>), 


on "letvar<Id><exp>e" e when (e != <exp>): LetVar(<Id>, <exp>, e), 
on "letvar<Id>e<exp>" e when (e != <exp>): LetVar(<Id>, e, <exp>) 
/* Concrete inpüt syntax =-=--- mu ---== BBD; ig */ 
Exp = (LEIT idk = RR PRIN Exp END) A 
Exp$1.abs = Let(id.abs, Exp$2.abs, Exp$3.abs); 
J 
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/ ** 
* F 
* P 


*X XX 


C 
x x KF KF KF KF A KF AA X XK XX x x XA A XA X X A 


* 
N 


exp 


|  (LETVAR id ASSIGN Exp IN Exp END) 4 
Exp$1.abs = LetVar(id.abs, Exp$2.abs, Exp$3.abs); 
} 


xk xk ok ok ok ok 5k 5k ale od ak ak ak ak ak ak ae ak ak ak ak ak ske k ke ke ke ok 2K ək ke ad ade ad ke ad ke ok ak ole ak ale e ole ke ke k ke ke ale ole ale ale e ad ak ode ad ak ad a ak ak ak ak sk 
lle Name : let_infer.ssl * 


urpose : Type inference for let and letvar * 
ke KE ak ak dd ak > ak ak ak ak ak > ak ək ək 2K ək ək ək kK ək ək ək k 3k ək K ək I I a ək ək DK ək ək ək ak ak sk skok skok / 


Two local attributes, sigma and finalTypeScheme, are needed in the 
attribution of Let; sigma is used to extend the type environment, 
while finalTypeScheme gives the typing used in the alternative 
unparsing rule. Type sigma may not be a final type scheme for 
Id.name because it may contain type variables that get specialized 
by an enclosing expression. e.g, letvar x={] in 

let y = (let z=x in 17) in 1::x. The type of z is determined by 
"1::x" of the enclosing expression "let y s ...". 

Thus the final type scheme must be formed from the final 
substitution finalSubst inherited from the root. This is done 
using the upward remote attribute set {Static.finalSubst, 
Dynamic.finalSubst). 


If attribute finalTypeScheme is used for both purposes, then a 
type 2 circularity results--there is a mutual dependence between 
finalTypeScheme and finalSubst. 


Likewise local attribute tau of LetVar, used in the alternative 
unparsing rule, must also be formed from fınalSubst. 


Let ( 
local TYPESCHEME sigma; 
local TYPESCHEME finalTypeScheme; 


exp$1.S = exp$3.S; 

exp$1.typeAssignment = exp$3.typeAssignment ; 

exp$1.partial = Id.partial || exp$2.partial || exp$3.partial; 
exp$2.s = exp$1.s; 

exp$2.letvars = exp$1.letvars; 
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exp$3. 
exp$2. 
exp$3. 
exp$3. 


sigma 


letvars = RemoveFromLVList (Id, exp$1.letvars) ; 


typeEnv = exp$1.typeEnv; 

s - exp$2.S; 

typeEnv = TypeEnvConcat(Id.name, sigma, 
ApplySubstToTypeEnv(exp$2.S, 
RemoveFromTypeEnv(Id.name, exp$1.typeEnv))); 


NonExpansive(exp$2) ? 
Close(ApplySubstToTypeEnv(exp$2.S, exp$1.typeEnv), 


RecReal (exp$2.typeAssignment, exp$2.S)) 


: TypeExp(RecReal (exp$2.typeAssignment, exp$2.S)); 
finalTypeScheme = 

NonExpansive(exp$2) ? 

Close(ApplySubstToTypeEnv(4Static.finalSubst, 


Dynamic.finalSubst), exp$1.typeEnv), 
RecReal(exp$2.typeAssignment, (Static.finalSubst, 
Dynamic.finalSubst))) 


: TypeExp(RecReal(exp$2.typeAssignment, 
{Static.finalSubst ,‚Dynamic.finalSubst})); 


exp$2. 
exp$3. 


exp$3. 
exp$2. 


exp$2 
exp$3 


LetVar { 


local 


exp$1 
exp$1 
exp$1 


exp$2. 


exp$2 


exp$3. 


exp$2 


exp$3. 


sv = exp$1.sv; 
sv = exp$1.top ? exp$1.encl ? RemoveFromSVList (Id, 
exp$1.sv) 
: SVCons(Id,exp$1.sv) 
: exp$1.sv; 
encl = exp$1.encl; 
encl = exp$i.encl; 
.top = false; 
.top = exp$i.top; 
} 
TYPEEXP tau; 
.S = exp$3.S; 
.typeAssignment = exp$3.typeAssignment ; 
.partial < Id.partial || exp$2.partial || exp$3.partial; 
s = exp$1.s; 
.letvars = exp$1.letvars; 
letvars = (Id == IdNull()) ? exp$1.letvars 
Id :: RemoveFromLVList(Id, exp$1.letvars) ; 
.typeEnv = exp$1.typeEnv; 
s = FreeInLambda(Id.name, exp$3) ? 


Unify (TypeVar(WeakVar(newsymi())), 
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exp$2.typeAssignment, exp$2.5) 
: exp$2.S; 
exp$3.typeEnv z 
TypeEnvConcat(Id.name, TypeExp(exp$2.typeAssignment), 
ApplySubstToTypeEnv(exp$3.s, RemoveFromTypeEnv( 
Id.name, exp$1.typeEnv))); 
/* use RecReal here only because alternative unparsing rule 
displays type tau so type must be closed */ 
tau = RecReal(exp$2.typeAssignment, {Static.finalSubst, 
Dynamic.finalSubst}) ; 
exp$2.sv = exp$1.sv; 
 exp$3.sv - exp$1.top ? exp$1.encl ? RemoveFromSVList(Id, 
exp$1.sv) 
: SVCons(Id,exp$1.sv) 
: exp$1.sv; 
exp$3.encl = exp$1.encl; 
exp$2.encl = exp$1.encl; 
exp$2.top = false; 
exp$3.top = exp$1.top; 


IE ubernatiyeNUpsssdimg ---------------:-22052599555--- E -- * / 


exp: Let [ * ::= "#{ÆLAS(KEYWORD:let#S) " 6 ":" finalTypeScheme 
u = fol O" YS(KEYRORD:in/s)Yt/tYn" 0 "/b/b/n 
AS CKEYWORD: end 4S) /bA1" ] 
I EetVar [ ^": "wAMBUSQSEYWOÜRBEletvar4S) "0 ":" 
tau "var Ee CHE Ee ere 
"AbAbA4n 4S (KEYWORD: end 4 bAS) 4)" J 


, 
Does id occur free in a \-abstraction in e? */ 


BOOL FreeInLambda (ID id, exp e) { 

with (e) ( 
AddrOf(e) : FreeInLambda(id, e), 
Subscript(ei, eil :FreeInLambda(id, e1) || FreeInLambda(id, e2), 
Assign(el, e2) : FreeInLambda(id, e1) || FreeInLambda(id, e2), 


PtrAdd(ei, e2) : FreeInLambda(id, ei) || FreeInLambda(id, e2), 
Deref(e) : FreeInLambda(id, e), 
Lambda(*,*) — FreeIn(id, e), 


SN 


Let Ce jeden) : FreeInLambda(id, e1) || FreeInLambda(id, e2), 


LetVar(t ei e2) : FreelnLambda(id, ei) || FreelnLambda(id, e2), 
LetArr(*,e1,e2) : FreeInLambda(id, ei) || FreeInLambda(id, e2), 
Compose(el,e2) : FreelnLambda(id, ei) || FreeInLambda(id, e2), 
Not(e) : FreeInLambda(id, e), 
Andte1l,e2) : FreelnLambda(id, ei) || FreelnLambda(id, e2), 
Del 82) : FreelnLambda(id, ei) || FreelnLambda(id, e2), 
Equal(e1,e2) : FreeInLambda(id, ei) || FreeInLambda(id, e2), 
NotEqual(ei,e2) : FreelnLambda(id, ei) || FreelnLambda(id, e2), 
Cond(ei1,e2,e3) : FreelnLambda(id, ei) || FreelnLambda(id, e2) 
|| FreeInLambda(id, e3), 
While(ei,e2) : FreelnLambda(id, ei) || FreeInLambda(id, e2), 
Sum(ei1,e2) : FreeInLambda(id, el) || FreelnLambda(id, e2), 
Diffaeli.e29 : FreeInLambda(id, ei) || FreeInLambda(id, e2), 
Prodlel,e2) : FreeInLambda(id, ei) || FreeInLambda(id, e2), 
Quot (ei ,e2) : FreelnLambda(id, ei) || FreelnLambda(id, e2), 


LessThan(ei,e2) : FreelnLambda(id, ei) || FreelnLambda(id, e2), 
LessThanOrEgual(el,e2): 

FreeInLambda(id, ei1) || FreeInLambda(id, e2), 
GreaterThan(ei,e2) : FreeInLambda(id, ei) || FreeInLambda(id, e2), 
GreaterThanOrEqual(ei,e2) : FreeInLambda(id, e1) || 

FreeInLambda(id, e2), 


Pair(el,e2) : FreeInLambda(id, ei) |l FreeInLambda(id, e2), 
Calleri) : FreeInLambda(id, e) || FreeInLambdaList(id, 1), 
default : false /* constants and placeholders */ 

) 


P 


BOOL FreeInLambdaList(ID id, actualParamList 1) 1 
without 
ActualParamListPair(e, rest) 
(FreeInLambda(id, e) || FreelnLambdaList(id, rest)), 
default : false 


S 


BOOL FreeIn (ID id, exp e) 1/4 Does id occur free in e? */ 
with Com 
Ident(Identifier(x)) : id == x, 
AddrOf (e) "-—BEmeeln(sd, ed 
Subscript(ei, e2) :FreeIn(id, ei) || FreeIn(id, e2), 
Assign(ei, e2) : Freeln(id, ei) || Freeln(id, e2), 
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PtrAdd(ei, e2) : FreeIn(id, e1) || Freeln(id, e2), 
Deret(€ MW Pin če kala le - 
Lambda(£, e1) : !OccursIn(id, £) ££ Freein(id, el), 
Let(Identifier(x), el Me2) ME ee mM ane MM Al 
(Freeln(id, e2) && id != x), 

LetVar (dentifier), el e2) m Fresinid, PN 

(FreeIn(id, e2) && id != x), 
LetArr (+. cme?) AE eol MM ec mu? 
Compose(ei, e2) : Freeln(id, ei) || Freeln(id, e2), 
Nov Coli Bree Tania. tel) 
Amd(el_1e2) : FreelmtidescionlleEreeIinmád, 62): 
Intel Ce let ke) LL Ereelnúid, ce. 
Equal(ei, e2) : FreeIn(id, e1) || FreeIn(id, e2), 
NotEgual(e1, e2) : Freeln(id, e1) || Freeln(id, e2), 
Cond (olp eS Freoin des el) Al FEree Inside | | 

Freeln(ad, e3), 

Ha PECE V ue?) ErecIn ida Eeer See 
ae Ie Freein rei E 
piri el e2) Freen id eD Eeer eg 
Prod(ei, e2) : Freeln(id, ei) || Freeln(id, e2), 
Duot lel, e2) : Freeln(id, el) || FreeIn(id,. 29; 
LessThan(el, e2) : Freeln(id, ei) || Freeln(id, e2), 
LessThanOrEqual(ei, e2) : Freeln(id, ei) || FreeIn(id, e2), 
GreaterThan(ei, e2) : Freeln(id, el) || FreeIn(id, e2), 
GreaterThanOrEqual(ei, e2) : FreeIn(id, ei) || FreeIn(id, e2), 
Paur(el.492) -EreeIn(Gud, e1) (MFsecin(id e2)M 
pace» : FreeIn(id,e) || FreeInList(id, 1), 
default: false /* constants and placeholders */ 


) 


Dé 
BUOL OccursIn(ID id,-formalParamList 1) 4 
ith (1) 
FormalParamListPair(Identifier(x), rest) 
Deet ureegen 
default : false 
) 


Dë 
BOOL FreeInList(ID id, actualParamList 1) { 


with(1) ( 
ActualParamListPair(e, rest) 
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(FreeIn(id, e) || FreeInList(id, rest)), 
default : false 


}; 


PCO RR CORR IC IR KK DK ae aka DK aka aa kk kkk kk kk k 
* File Name : letarr.ssl 

* Purpose : Definations how letarr, poimtenearibhmetic and 

* array indexing. We make a minor change to Poly C 
syntax and denote pointer arithmetic with special 
character \oplus which is a plus sign * and a circle 
around it. But in template panel of the editor this 
sign will be seen as ot because the current SynGen 
environment can not display this special character 


"df. NC OC er A 
DE Ru Hr A 


appropriately. 
ke ke DK EH DK ak ak a DK D ak ak 3% ak ae ak ak ae ak ak a a ae ak ae ak aka ak a ak ak ak ak 2k 2k ak ak 2k 2k ak 2k zkeske sk skoke K skok sk ak 2k ak ake ak ak ak ak a ak ak 2k ak 2k ak / 


/* Abstract syntax EE */ 
exp : LetArr(Id exp exp) 

|  PtrAdd(exp exp) 

|  Subscript(exp exp) 

|  SubscriptL(exp exp) /* For internal use only. */ 


2 


[*"Minimal-parenthesWzatuón EE x / 
exp : LetArr 4 


exp$2.precedence - 0; 
exp$3.precedence = 0; 
} 
| PtrAdd PP2(6) 
EE 
Eet Ee Ee */ 
exp : LetArr [ ~ =:= ZSOKEYWORD:letarrAS) " e NN uU 
" YS(KEYWORD:in%YS)4t/t4n" € "AZbAbAnAS (KEYWORD: endAS)" ] 
| PtrAdd [ ^: "AOUCUSCPUNCTUATION:" Ip "JS)" O "¿SCOPERATOS 
ee oM ENEE gh AE 
ME ubseripi IR OA O e | 
(MES nc rr pen TO NES OC En) 
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/* Template @ennands SEE -----———— a S oe x / 
transform exp 
on "letarr" <exp>: LetArr(<Id>, <exp>, <exp>), 
on "letarr<Id><exp>e" e when (e != <exp>): LetArr(<Id>, <exp>, e), 
on "letarr<Id>e<exp>" e when (e != <exp>): LetArr(<Id>, e, <exp>), 
on "\<oplus>" <exp> : PtrAdd(<exp> , <exp>), 
on "[ ]" <exp> : Subscript(<exp>, <exp>) 


3 


= GConcretelinput syntaxess a 0 an — */ 
Exp ::- (LETARR id '['Expsusdw. IN EspeENDDe 
Exp$1.abs = LetArr(id.abs, Exp$2.abs, Exp$3.abs); 
} 


| (Exp PTRADD Exp) (Exp$1.abs - PtrAdd( Exp$2.abs, Exp$3.abs); ) 
| (Expee ['Exp'je ) {Exp$a.abs = Subscmipm@Exp$2.abs, Exp$3.abs) ;} 


A RIO ak k k 


* File Name : letarr.ssl * 
* Purpose : Type inference for letarr, pointer arithmetic and * 
* array indexing. * 


ok ok ok ok ok ok RO RII RIC ak ak ak ak ok ale ak ak ak ak ak a ale ale ak ak k kkk kkk kkk 3k ak ak ok ak ak ak ak e ale ale ad ad sk skok skok / 


exp : LetArr { 
exp$1.S = exp$3.S; 
exp$1.typeAssignment - exp$3.typeAssignment; 
exp$1.partial = Id.partial || exp$2.partial || exp$3.partial; 
exp$2.s = exp$1.s; 
exp$2.letvars = exp$1.letvars; 
exp$3.letvars = RemoveFromLVList(Id, exp$1.letvars); 
exp$2.typeEnv = exp$1.typeEnv; 
exp$3.s = Unify(exp$2.typeAssignment, IntType,exp$2.S); 
exp$3.typeEnv = 
TypeEnvConcat(Id.name, TypeExp(RefType(TypeVar( 
WeakVar(newsymi())))), ApplySubstToTypeEnv (exp$2.S, 
RemoveFromTypeEnv(Id.name, exp$1.typeEnv))); 
exp$2.sv = exp$1.sv; 
exp$3.sv = exp$1.top ? exp$1.encl ? 
RemoveFromSVList(Id, exp$1.sv) 
: SVCons(Id,exp$1.sv) 
exp$1.sv; 
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Di 


exp$3 


exp$2. 


exp$2 
exp$3 


PtrAdd 


} 


exp$2 
exp$2 


exp$3. 
exp$2. 
exp$3. 


exp$3 
exp$1 
exp$1 


exp$1 
exp$2 


exp$2 
exp$3 


.typeEnv = 
.letvars = 


.typeEnv = 


encl = exp$1.encl; 
encl = exp$1.encl; 


.top = false; 
.top = exp$1.top; 


{ 

exp$1.typeEnv; 

exp$1.letvars; 

letvars = exp$1.letvars; 

s = exp$1.s; 

s = Unify(RefType(TypeVar(WeakVar(newsymi()))), 
exp$2.typeAssignment, exp$2.S); 


ApplySubstToTypeEnv(exp$3.s, exp$1.typeEnv); 


.S = Unify(exp$3.typeAssignment, IntType, exp$3.S); 
.typeAssignment = 


ApplySubstToTypeExp(exp$1.S, exp$2.typeAssignment) ; 


.partial = exp$2.partial || exp$3.partial; 
exp$3. 
.encl = exp$1.encl; 
.top = false; 


encl = exp$1.encl; 


.top = exp$1.top; 
exp$2. 
exp$3. 


sv - exp$1.sv; 


sv = exp$1.sv; 


Subscript { 


local 


TYPEEXP tau; 


exp$2.typeEnv = exp$1.typeEnv; 
exp$2.letvars = exp$1.letvars; 
exp$3.letvars = exp$1.letvars; 
exp$2.s = exp$1.s; 
exp$3.s Unify (RefType(TypeVar(WeakVar(newsymi()))), 
exp$2.typeAssignment, exp$2.S); 
exp$3.typeEnv = ApplySubstToTypeEnv(exp$3.s, exp$1.typeEnv); 
exp$1.S = Unify(exp$3.typeAssignment, IntType, exp$3.S); 
exp$1.typeAssignment = 
With au) « 
RefType(t) : t, 
default : NullType 


DE 
exp$i.partial = exp$2.partial || exp$3.partial; 
ApplySubstToTypeExp(exp$1.S, exp$2.typeAssignment); 
exp$3.encl = exp$1.encl; 


tau = 
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exp$2.encl = exp$1.encl; 
exp$2.top = false; 
exp$3.top = exp$1.top; 
exp$2.sv - exp$1.sv; 


exp$3.sv = exp$1.sv; 
} 
I Subscriptit 
INHSILENCE(exp$2) /* this attribution is a result x/ 
INHSILENCE(exp$3) /* of values being expressions */ 
SYNSILENCE (exp$1) 
} 


Ee unparsing —— Ze x / 


exp : PtrAdd i 
in TypeErrors on (exp$1.S zz FailSubst && 
exp$2.S !- FailSubst ££ exp$3.S !- FailSubst); 
} [ TypeErrors 0 : "PtrAdd/n" ^ ^ ] 
I Subscript 
in TypeErrors on (exp$1.S == FailSubst && 
exp$2.S != FailSubst); 

} [ TypeErrors @ : "Subscript/n" " =] 


f| xk K 2 ak ak ak ak ak ak ale ak ak ak ae ak ak HER ak OO OR OO RRR IO IO I IK I aK aK kak a I ak ak a skok ak ak 2k 


* File Name : lex.ssl * 
* Purpose : Lexical syntax, token precedences for concrete input x 
* syntax and style declarations. * 


FOC OR COO ORI I RO RK a K KK k KK KK k K k ke 2k ak ak skok skok / 


/* Lexical syntax -----------------------------------------------—- x / 
WHITESPACE : WhiteSpaceLex < [\ \t\n] >; 

EXP_PLACEHOLDER:  ExpPlaceholderLex < "<exp>" >; 
IDENTIFIER_PLACEHOLDER: IdentifierPlaceholderLex < '<identifier>" >; 


LAMBDA : LambdaLex « "Jambda"|"LAMBDA"|(1ambda) »; 
VAL : ValLex zeva INA o 
PPX : FixLex c px EDS 
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LET LetLex «etu 

LEIVAR LetVarLex Sletvar" »: 

LETARR LetArrLex < "letarr" >; 

IN InLex eon? | “IN! >; 

NIL NilLex e Halt) tes 

IF IfLex Eu IE s 

WHILE WhileLex — « "while'"|"WHILE" >; 

UNIT UnitLex «ums to; 

THEN ThenLex < "then" | "THEN" >; 

ELSE ElseLex < "else "ELSE: 

DO DoLex < "do"|"DO" >; 

OD OdLex « "od" |"OD" »; 

FI FiLex < "fi"|"FI" >; 

BEGIN BeginLex < "begin" |" BEGIN" >; 

END EndLex < nend" WEND" >; 

TRUE TrueLex <me" | "TRUE" >; 

FALSE FalseLex « ''fallsel'| FALSE MW 

ASSIGN AssignLex Ser: 

LOGICALAND LogicalAnd < "&&" >; 

LOGICALOR LogiealDre < "del "a>; 

NOTEQUAL NotEqualLex < Pene; >: 

LESSEQUAL LessEquallex < "<="|{le} >; 

GREATEREQUAL: GreaterEquallex < ">="|{ge} >; 

INTEGER IntegerLex < NV-?[0-9]s 2; 

FLOAT FloatLex — «[0-9]*(X. [0-9] *) C[adDeE] [-*1? [0-9] *) ?» ; 
ID IdLex < [A-Za-z] [0-9A-Za-z $]x[']x|[?] >; 
PTRADD PtrAddLex “ (oglaus >; 

/* Token precedences for concrete input syntax -------------- */ 


left LOGICALOR; 

left LOGICALAND; 

nonassoc NOTEQUAL; 

nonassoc ?=?, ?<?, LESSEQUAL, >>’, GREATEREQUAL; 

left PTRADIDA. +? sa ie 

left ^*', “ee 

a 2 Lg 

nonassoc ID, VAL, FIX; iN; NSL, TRUENMBEADSE, FLOAT, INTEGER MEET; 
LEMMAR LETARR iF WHILE UNIT, THEN, ELSE, DOV" OD TFI, 
BEGIN, END, ASSIGN, LAMBDA, EXP. PLACEHOLDER ; 
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/* Style declarations -------------------------------------------- 2 
style NORMAL, KEYWORD, PLACEHOLDER, PUNCTUATION, OPERATOR; 


J| 3 ak ak ak ak ak ak ak ae ak ae ae aka ak ae ak ak ae ak ak ae ae ra ae ae ak ee ara ee ak ee a ea ea ae ak IO I I I kK 3 2k 2k 3k 2k 2 3k 2k 2k 
* File Name : newsymi.c * 
* Purpose : New type variable generator. * 
FOC COC OO OC a E ee aka fe kok ke skok ske skoke kok I Ik a kak skokok skok / 
/* $Revision: 1.2 $ 

* $Date: 1993/09/02 21:21:12 $ 

* $Author: volpano $ 

* $Log: newsymi.c,v $ 

* Revision 1.2 1993/09/02 21:21:12 volpano 

* Removed T in sprintf. 

k 


Copyright (c) 1989, an unpublished work by GrammaTech, Inc. 
ALL RIGHTS RESERVED 


This software is furnished under a license and may be used and 
copied only in accordance with the terms of such license and the 
inclusion of the above copyright notice. This software or any 
other copies thereof may not be provided or otherwise made 
available to any other person. Title to and ownership of the 
software is retained by GrammaTech, Inc. 


x E XX XX KF * x YX X 


* 
m 


#include "stro exp.h'" 
#include "structures, exp.h" 
include "types. exp.h" 


/* 

x newsymi 

* 

* Generate new unique symbol. 

* 

* WARNING: In general, this is not a good technique, because 
* 


gratuitous new symbols will cause AFFECTED to be too large. 
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FOREIGN newsymi() 


1 
static aint 
static char burol. 
sprinti (bur aod" itt); 
petamaStae( states t ro (bkuii)))u 
} 


LKR HEAR HHOR OK HK OK ak ak ak a ak DE DK EEK KDE DH DK D 2K 2k 2 a a a ak a sk skok sk ak 24 k kkk kkk kk kk k 
* File Name : pair.ssl 

* Purpose : Defitions for pair. Pair is the stdout of the 

* interpreter. We output the result produced by a 
program through pair construct. One might consider 
using list construct for this purpose. But a list 
requires the elements have the same which is a severe 
restriction. Notice that we define only the required 
constructor and do not define first and second 


X c Xx X x x + EF % 


operations since pair is not in Poly C calculus they 


XX XXX JE EC x 


are not needed. 
FORO OOOO RI ROK RK I IR ak ak a 2 2K 2k 2k FK ak FK ak 2 26 K ak 2k ak 26 FK K K 2k 26 2k FK AK ak ok 2k 2k a ak ok / 


/* Abstract syntax ------ - 7-07 0000007700000 */ 
exp : Pair(exp exp) 
+ Miprnalsparenchesizatione. — eo oo LE * / 
exp : Pair { 

exp$2.precedence = 0; 

exp$3.precedence = 0; 

} 
EEN x / 
exp : Pair  [ ^ ::- "AS(PUNCTUATION: (4S)" Q 

“ZS CPUNCTUATION: ,4S) Zo" MOR Ss (RUNCTUATION Eed 
Kremer EE Se Bee o SEE */ 


transform exp 
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on ue ! hu 


2 


Eair 
exp$2 
exp$2 
exp$3 


exp$2. 


exp$3 
exp$3 
exp$1 
exp$1 


T = 


«exp? 


/* Concrete input syntax 
pis (MERE Exp o o abs 


: pair_infer.ssl 
: Type inference for pair. 
kk k 2k k akak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak 2K ək k sk ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak / 


{ 


.typeEnv = 
.letvars = 
.letvars = 
exp$1. 
.typeEnv = 


s = 


exp$2 


partial = 
.S = 


exp$3 


: Pair(<exp>,<exp>) 


-me a og ae a ss es es i om A mm wm mm mm emm mm em wm em wm mm NR om mm mm emm emm emm 


*/ 
Pair(Exp$2.abs, Exp$3.abs);) 


[DOO OKO K ak k k ək aK 2K aK 2K K K K 2K ak aka ak ak DK DE HO OH ak ak ak ak ae ak a ak k AK sk sk sk ak sk sk 2K K sk skok sk 
* File Name 
* Purpose 


* 


* 


exp$1.typeEnv; 
exp$1.letvars; 
exp$1.letvars; 
= 


ApplySubstToTypeEnv(exp$2.S, exp$1.typeEnv); 


or 


exp$2.partial || exp$3.partial; 


NOT 


PairType(exp$2.typeAssignment, 
exp$3.typeAssignment); 


exp$1.typeAssignment - 
false; 
false; 
encl = exp$1 
encl = exp$1 
‚sv = 


exp$3.top 
exp$2.top = 
exp$3. 
exp$2. 
exp$3 
exp$2. 
i 


.encl; 
.encl; 
exp$1.sv; 
sv = exp$i.sv; 


[OOOO OOO OOO OO GG OR OR OI ak ak ak K K ske K ske» OH ak 2k 2k 2 2 2k 
* File Name 


* Purpose : Definitions for real numbers. * 
COCR okek ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak ak > ak ak a II IK aK ARK Ik A IIA A kA 2 2k k skok skok / 


: real.ss] * 


/* Abstract syntax 
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exp : RealOp(REAL) hais se] 


¡EA nod ee a x / 
Exp ::= (FLOAT) 1 Exp$l.abs < RealOp(STRtoREAL(FLOAT)); } 


[5 5 5k 5k 5k 5k sk 5k 5k 5k RII IK a o ale ale ld do al ale lod 2 ak 2k 
x File Name : real infer.ssl * 


* Purpose : Type inference for real numbers. * 
EEEE EEE EE EEE E E EE E E EE EEE E E EE E EE E E E E E E E E E E E E E E E E E E E E E E E E E E E E E E E E E E E E 


exp : RealOp 4 
exp.typeAssignment = RealType; 
exp. > = exp.s, 
exp.partial = false; 


} 


J 3% KK ak ak ak ak ak ak ak ak koke sk 2k k 3k ak K k 2k ək ək K ək skok sk skok sk sk sk skoke sk sk sk sk skoke skok k sk sk ske ske sk 2k 2 2k skok skok sk sk kok sk ka 
x File Name : vwhile.ss1 zk 


* Purpose  : Definitions for while loop. * 
OOO OI ORO DO okokokekekekkokekekekkek okokokckekekekekekekekeolekekek / 


/* Abstract syntax 2222222 x / 
exp : While(exp exp); 


Non malepazenthesjzation som m e e */ 

exp : While { 
exp$2.precedence 
exp$3.precedence = 0; 


i 
© 


i 
O EE Eeer ii * / 
exp : While [" ::< "/t/S(KEYWORD:while/S) " € " ¿S(KEYWORD:dofS)An" 
@ "4b/n/S(KEYWORD:od/S)" ] 
A ar o mm mmm O E x / 


transform exp 
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on "while" e : While(<exp>, e) 


3 


/* Concrete input symtax E x / 
Exp ::- (WHILE Exp DO Exp OD) 
{ Exp$1.abs = While(Exp$2.abs, Exp$3.abs); } 


IT EE EE EE EE EE EE EE EE EE EE EE EE E EE EE EE EE EE EE EE E EE EE EE E EE EE 
* File Name : while infer.ssl x 


* Purpose : Type inference for while loop. * 
De ak ak ak ak k ak ak ak akak ak ak ak ak ak ak akak ak akak ak ak ak akak 2K 3K ak 2K ak 2K 2K ek ek HEC OCR kee d 


/* type inference */ 
exp : While { 
exp$2.typeEnv = exp$1.typeEnv; 
exp$2.letvars = exp$1.letvars; 
exp$3.letvars = exp$i.letvars; 
exp$2.s = exp$1.s; 
exp$3.s = Unify(exp$2.typeAssignment, IntType, exp$2.S); 
exp$3.typeEnv - ApplySubstToTypeEnv(exp$3.s, exp$1.typeEnv); 
exp$1.S = exp$3.5; 
exp$1.typeAssignment = UnitType; 
exp$1.partial = exp$2.partial || exp$3.partial; 
exp$3.encl = exp$1.encl; 
exp$2.encl = exp$1.encl; 
exp$3.sv = exp$i.sv; 
exp$2.sv = exp$i.sv; 
exp$2.top = false; 
exp$3.top = false; 


exp : While 
{ in TypeErrors on (exp$3.s == FailSubst && 
exp$2.S != FailSubst); } 
[ TypeErrors Q : "While/n" ^ ^ ] 
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